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1. INTRODUZIONE AL LINGUAGGIO PASCAL 



SOMMARIO 


Lo scopo di questo capitolo e' di riassumere le caratteristiche 
principali del linguaggio Pascal, le sue origini e la sua collocazione 
tra altri linguaggi. 

Viene prima presentata una breve descrizione del linguaggio nella storia 
di altri linguaggi di programmazione; poi sono riassunte le principali 
caratteristiche del linguaggio Pascal standard. Vengono anche fornite 
alcune delle principali estensioni del Pascal, descritte dettagliatamente 
nei capitoli successivi del manuale. 


INDICE 


NOTE STORICHE E COLLOCAZIONE 

1-1 

DEL LINGUAGGIO 


PRINCIPALI CARATTERISTICHE 

DEL LINGUAGGIO 

1-2 

LA PROGRAMMAZIONE TRAMITE 
MACCHINE ASTRATTE 

1-3 

LA STRUTTURA GERARCHICA 

DI UN PROGRAMMA 

1-4 

SEQUENZA DI SCRITTURA 

E DI COMPILAZIONE 

1-6 

REGOLE DI VISIBILITÀ' 

E LORO ENUNCIATO 

1-7 

ROUTINE RICORSIVE E 

RISORSE PREDEF1NITE 

1-11 

IL CONCETTO DI TIPO 

1-14 

TIPI SEMPLICI 

1-16 

TIPI STRUTTURATI 

1-18 


ESECUZIONE DEI PROGRAMMI 

E GE5TI0NE DELLA MEMORIA 

1-21 

EFFETTO DI UNA CHIAMATA 

DI ROUTINE 

1-22 

IL RUN TIME STACK 

1-23 

L'AREA HEAP 

1-28 

COMPILAZIONI SEPARATE 

E LI8RERIE DI RISORSE 

1-29 

UNITA' PRINCIPALE DEL 
PROGRAMMA 

1-40 

MODULI 

1-41 




NOTE STORICHE E COLLOCAZIONE DEL LINGUAGGIO 


11 linguaggio Pascal e' stato ideato da Llirth e Jensen nel 1968 come 
linguaggio con scopo generale fortemente orientato verso l'utente, e si 
e 1 rivelato un evento chiave nella storia dei linguaggi di 
programmazione. 

Si possono delineare alcuni orientamenti fondamentali nella storia di 
tali linguaggi: 

1'allocazione dei dati e' diventata sempre piu' un compito affidato 
al sistema invece che all'utente; 

l'insieme delle istruzioni e la struttura del linguaggio in generale 
si sono sempre piu' orientati verso modelli umani piuttosto che verso 
caratteristiche della macchina; 

la rappresentazione dei dati, un tempo legata alla configurazione 
hardware, e' sempre piu' definibile dall'utente per mezzo di tipi 
astratti di dati: i dati vengono considerati piu' dal punto di vista 
del loro valore logico che della loro rappresentazione fisica in 
memoria; 

il supporto runtime per l'esecuzione dei programmi e' diventata 
sempre piu' potente rendendo i linguaggi piu' indipendenti dalle 
caratteristiche del sistema operativo. 

Questa evoluzione può' essere notata attraverso un breve sommario dei 
principali linguaggi di programmazione: 


LINGUAGGI ASSEMBLER L’allocazione dei dati e' compito del 

programmatore; i tipi dei dati sono limitati; gli 
operatori appartengono a tipi definiti; non ci 
sono strutture di controllo o di dati; 

FORTRAN L'allocazione dei dati e' statica; i tipi dei 

dati sono limitati; anche le strutture di dati e 
di controllo sono limitate; 

COBOL L'allocazione di dati e' statica; i tipi di dati 

e le strutture di controllo sono limitati; 
numerose le strutture di dati; limitato il 

supporto runtime; 


PL1 L'allocazione di dati e' dinamica; limitati i 

tipi di dati; buone le strutture di controllo; 
numerose le strutture di dati ed esteso il 
supporto runtime; 


PASCAL L'allocazione dei dati e' dinamica; esteso 

l'insieme di tipi di dati definibili 
dall'utente, delle strutture di dati e di 
controllo; esteso il supporto runtime; 




PASCAL MICROSOFT Estensione del Pascal: presenta prestazioni e 

funzionalità' di package e la possibilità' di 
compilazioni separate; 

ADA Estensione del Pascal: presenta prestazioni e 

funzionalità' di package, la possibilità' di 
compilazioni separate, programmazione 

concorrente, facile gestione delle eccezioni, 
strutture astratte di dati. 


PRINCIPALI CARATTERISTICHE DEL LINGUAGGIO 

11 linguaggio Pascal dispone di un insieme di strumenti per la 
strutturazione dei programmi basato sul concetto di programmazione 
strutturata, comprese le forme piu' note di strutture condizionali e 
iterative. 

Ha due tipi di routine: procedure e funzioni che possono essere 
utilizzate ricorsivamente (il concetto di ricorsivita’ viene spiegato 
piu' in dettaglio oltre in tale capitolo) ed accettano differenti tipi di 
parametri: valore, di riferimento e di routine. 

Tuttavia la principale caratteristica del linguaggio e' la capacita' di 
definire tipi astratti di dati enumerando i loro possibili valori. 
Inoltre i tipi strutturati possono essere creati- per mezzo di uno schema 
di base di strutturazione: array, record, file e set; si possono infine 
costruire, tramite puntatori, strutture dinamiche di dati di qualunque 
configurazione. 

Nonostante le sue capacita', il linguaggio e' caratterizzato da una 
grande concisione e chiarezza di descrizione, che ne facilitano 
l'apprendimento, la scrittura e la lettura. 

Esistono inoltre delle versioni estese del Pascal (quali ad esempio il 
Pascal M20) che supportano compilazioni separate di programmi con 
condivisione di risorse, e capacita' di -racchiudere le relative 
operazioni all'interno di tipi strutturati (moduli). Si ha anche un certo 
numero di procedure e funzioni predefinite che sono inerenti alla 
costruzione del software di sistema . 
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INTRODUZIONE AL LINGUAGGIO PASCAL ' 


LA PROGRAMMAZIONE TRAMITE MACCHINE ASTRATTE 

Lo scopo di questo paragrafo e’ di illustrare la filosofia del linguaggio 
ed alcuni aspetti metodologici sulla programmazione in Pascal; inoltre 
viene trattata la struttura gerarchica ai un programma. 

Supponendo di avere un problema e una macchina capace di. risolverlo, si 
vuole cercare di utilizzare tale macchina. 

Per esempio, se si considera una macchina in grado di giocare a scacchi, 
essa può 1 essere usata per una partita. Mentre, se si ha una macchina 
incapace di giocare, ma capace di calcolare una mossa durante una partita 
di scacchi, le si possono dare appropriate istruzioni per giocare una 
partita: 

RIPETI FINCHE’ PART1TA-TERM1NATA: 

ESAMINA LA MOSSA AVVERSARIA, 

CALCOLA LA PROSSIMA MOSSA, 

EFFETTUA LA PROSSIMA MOSSA. 


Cosi’, dal punto di vista del giocatore, le due macchine menzionate 
possono essere considerate identiche. 

Piu 1 in generale si può’ dire che, avendo bisogno di una macchina che 
non esiste, essa può’ essere costruita con l'ausilio di macchine piu' 
elementari e di un linguaggio che esprime il modo in cui esse devono 
essere connesse per eseguire le operazioni richieste. 

Ogni componente della macchina può' naturalmente essere prodotto in 
questo modo, per mezzo di macchine di piu’ basso livello. 

Questo processo termina quando sono raggiunte le capacita' delle macchine 
che sono a disposizione. 

L'approccio sopra descritto costituisce il metodo fondamentale per la 
costruzione di un programma in Pascal: esistono alcune caratteristiche 
del linguaggio che costituiscono le "macchine" elementari, ovvero le 
risorse predefinite, ed altre che consentono la definizione di risorse ad 
alto livello (per esempio procedure e funzioni). 

Questo metodo e' anche noto come programmazione top-down, e consiste 
nell'analizzare il problema da risolvere in termini di sottoproblemi di 
minore complessità 1 . 

In seguito si descrive piu' in dettaglio la struttura gerarchica di un 
programma Pascal, anche da un punto di vista sintattico. 
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LA STRUTTURA GERARCHICA DI UN PROGRAMMA 


Come affermato precedentemente, un programma Pascal e* costituito da 
risorse, sia fornite dal linguaggio stesso sia definite dal 
programmatore. 

Da un punto di vista strutturale il programma e' diviso in due parti: la 
prima descrive le. risorse ad alto livello, la seconda comprende le 
istruzioni che implementano le risorse nel modo richiesto. 


PROGRAM example; 


descrizione- del Le 
risorse 


BEGXN 


istruzioni che 
usano Le risorse 
descritte 


END. 


Fig. 1-1 Schema di un Programma Pascal 

Con il termine "risorsa" si intende indicare ogni elemento utilizzato 
dalle istruzioni di programma, per esempio variabili, procedure e 
funzioni. Ciascun tipo di risorsa e' trattato piu 1 avanti: tra questi 
hanno un ruolo fondamentale le procedure e le funzioni, poiché' 
costituiscono le "istruzioni" ad alto livello su cui si basa la sezione 
istruzioni. 

Poiché' procedure e funzioni possono essere ulteriormente specificate con 
l'uso di risorse di piu' basso livello, la loro struttura e’ piuttosto 
simile a quella dei programmi. 
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PROGRAM example; 


altre risorse 


PROCEDURE proc; 


descrizione 
ri sorse 


BEGIN 


istruzioni 


END; 


FUNCTION f: result-type; 


descrizione 
ri sorse 


BEGIN 


istruzioni 


END; 


altre risorse 


eventualmente 
contenenti procedure o 
funzioni di più basso 
livello 



BEGIN 


END. 


istruzioni (che usano an¬ 
che procedure e funzioni) 


Fig. 1-2 Risorse Nidificate 

Ogni procedura o funzione contiene la descrizione delle sue risorse di 
livello inferiore ed una parte di istruzioni per il lorc uso. 

Si noti che tra queste risorse di livello inferiore ci possono essere 
altre procedure e funzioni, strutturate, a loro volta, nello stesso modo. 

La differenza tra procedure e funzioni e' trattata piu' avanti in questo 
manuale; per il momento si può' loro assegnare il nome comune di 
"routine". 

Nella programmazione in Pascal e' fondamentale la "nidificazione" di 
risorse; nella parte che segue vengono chiarite alcune regole su tale 
argomento. 
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SEQUENZA DI SCRITTURA E DI COMPILAZIONE 


Quando si scrive un programma Pascal in termini di gerarchia di risorse, 
si inizia da quella piu' ad alto livello: ciò’ implica come primo passo 
la definizione della parte istruzioni che si riferisce alle routine, ai 
dati e alle altre risorse che vengono definite in dettaglio 
successivamente. 

Questo metodo top-down di scrittura e' suggerito dal linguaggio stesso. 

Il compilatore Pascal, d'altra parte, scandisce il programma solo una 
volta e per tale motivo e' necessario che le risorse di livello inferiore 
siano specificate prima che si faccia riferimento ad esse. Quindi la 
sequenza di scrittura di un programma non coincide con quella fornita al 
compilatore: scrivendo, prima si definiscono le istruzioni del programma 
principale, in seguito le entità' cui nel programma principale si e' 
fatto riferimento: 


PROGRAM P; 

BEGIN 

distruzioni del programma principale 
con riferimento a procedure Q e R*) 
END. 


Poi si definiscono in dettaglio le risorse di secondo livello, in questo 
caso le routine Q e R: 


PROGRAM P; 

PROCEDURE Q; 

BEGIN 

distruzioni della procedura Q*) 
END; 

PROCEDURE R; 

BEGIN 

(""istruzioni della procedura R*) 
END; 

BEGIN 

distruzioni del programma principale 
con riferimento a Q ed R*) 


Ogni routine e' costruita con lo stesso criterio, cioè' specificando 
prima la definizione delle risorse e poi la parte istruzioni: 
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PROGRAM P: 

PROCEDURE Q; 

(■^descrizione risorse della procedura Q*) 
BEGIN 

(*istruzioni della procedura Q*) 

END; 

PROCEDURE R; 

{■^descrizione risorse della procedura R*) 
BEGIN 

('"istruzioni della procedura R*) 

END; 

BEGIN 

distruzioni del programma principale*) 

END. 


REGOLE DI VISIBILITÀ’ E LORO ENUNCIATO 


Vengono ora espresse alcune regole generali chiamate "regole di 
visibilità”' (scope rules), relative a tutti i tipi di risorse, incluse 
quelle predefinite cioè' fornite dal linguaggio stesso. 

Il raffinamento in modo top-down di un programma Pascal richiede di avere 
una corretta visibilità' della nidificazione delle risorse. 

Ogni risorsa si deve considerare come assegnata ad una specifica parte 
del programma. Per esempio nello scrivere una routine per la ricerca di 
un valore in un array, si deve inserire al suo interno una variabile 
indice per scandire l’array; questa variabile costituisce una risorsa 
privata della routine: e' scorretto e inutile usarla all'esterno. 

La disciplina relativa all'uso delle risorse e' governata da poche e 
semplici regole di visibilità'. 

Poiché 1 tali regole sono basate sul livello di nidificazione delle 
risorse, e' opportuno introdurre una semplice terminologia relativa a 
questo argomento. 

Si consideri l'esempio in cui un programma P sia scritto in termini di 
due risorse: una variabile A ed una procedura Q. 
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PROGRAM P; 

VAR A: (* descrizione di A *) 

PROCEDURE Q; 

(* risorse di Q *) 

BEGIN 

C* istruzioni di Q *) 

END; 

BEGIN 

C* istruzioni del programma principale *) 

END. 

Fig. 1-3 Risorse del Programma Principale 

Poiché* A e Q sono scritte specificatamente per P, si dice che esse sono 
risorse "figlie" di P, e che P e' "padre” di A e Q; inoltre A e Q sono 
detti "fratelli". 

La risorsa Q e* una routine, e come tale può' contenere risorse proprie, 
ad esempio due routine R e S: 


PROGRAM P; 

VARA: (* descrizione di A *); 

PROCEDURE Q; 

PROCEDURE R; 

(* risorse di R *) 

BEGIN 

(* istruzioni di R *) 

END; 

PROCEDURE S; 

(* risorse di S *) 

BEGIN 

(* istruzioni di S *) 

END; 

BEGIN 

(* istruzioni di Q *) 

END; 

BEGIN 

(* istruzioni di P *) 

END. 

Fig. 1-4 Nidificazione di Risorse 

Esistono quindi le seguenti relazioni: R ed S sono figlie di Q e P e' un 
antenato di R ed S, in quanto padre del loro padre Q. 
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Si noti il particolare metodo di rientranza usato per le righe: esso e' 
un modo utile e piuttosto diffuso per evidenziare la nidificazione di 
risorse nel testo di un programma. 

Quanto detto e’ sufficiente per formulare le seguenti tre regole di 
visibilità 1 : 

regola gerarchica 

regola sequenziale 

regola dell'ombra 

Ciascuna di queste regole specifica alcune restrizioni sulla parte di 
testo del programma in cui una risorsa può' essere utilizzata, tale 
parte di testo e' detta "area di visibilità'" della risorsa. 


La Regola Gerarchica 

La regola gerarchica stabilisce che una risorsa può' essere utilizzata 
solo all'interno della sua risorsa-padre (compresi i discendenti del 
padre), mai in una parte di testo esterna ad essa. 

In riferimento all'esempio precedente, la regola gerarchica stabilisce 
che R ed S non possono essere usate al di fuori della procedura Q. 


La Regala Sequenziale 

La regola sequenziale stabilisce che una risorsa non può' essere 
utilizzata in una parte di testo che precede la sua stessa definizione. 

Nell'esempio precedente, la procedura R può' essere utilizzata 
all'interno di S, mentre S non può' apparire all'interno di R. 

La variabile A può' essere usata in Q, e perciò’ anche in R e in S. 

Tuttavia c'e' un' eccezione a tale regola, riguardante i tipi puntatori 
che vengono trattati in seguito. 


La Regola dell* Ombra 

Le relazioni tra le risorse sono state precedentemente descritte in 
analogia con le relazioni familiari; continuando con l'analogia si può' 
considerare il problema dei nomi in una famiglia. Comunemente si evita 
di dare lo stesso nome a fratelli, perche' questo può' provocare 
confusione nel chiamarli. 

D'altra parte il problema non si pone se a due persone appartenenti a 
famiglie diverse viene dato lo stesso nome, poiché' il contesto e' 
sufficiente a distinguerle. 

Ciò' si verifica anche per gli identificatori di risorse del Pascal, ed 
e' con la regola dell’ombra che si elimina ogni possibile ambiguità'. 
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Si vuole aggiungere ora all'esempio precedente una variabile "A" 
all'interno della procedura R: 


PROGRAM P; 

VARA: (* descrizione di A *) 

PROCEDURE Q; 

PROCEDURE R; 

VARA: (* altra descrizione di A diversa dalLa precedente *) 
BEGIN 

(* istruzioni di R *) 

END; 

PROCEDURE S; 

(* risorse di S *) 

BEGIN 

(* istruzioni di S *) 

END; 

BEGIN 

(* istruzioni di Q *) 

END; 

BEGIN 

(* istruzioni di P *) 

END. 


Fig. 1-5 La Regola dell'Ombra 

Queste due risorse (le variabili A) sono completamente distinte anche se 
hanno lo stesso nome. 

Normalmente la variabile globale A (le risorse figlie del programma 
principale sono chiamate globali), e'accessibile all'interno di R; pero' 
la presenza di un' altra risorsa con lo stesso nome all'interno di R 
"mette in ombra" la variabile globale nella parte di R che segue la 
nuova definizione di A. Si tratta comunque di una condizione relativa 
solo ad R: la variabile globale A e' quindi accessibile in S e nelle 
parti rimanenti di Q e P. 

In altre parole la regola dell'ombra stabilisce che se in una routine 
compare una risorsa piu' interna avente lo stesso nome di una globale, 
quest'ultima non può' essere usata in quel contesto. 
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ROUTINE RICORSIVE E RISORSE PREDEF1NITE 

Molti problemi di programmazione sono facilmente risolvibili con 
l'impiego di algoritmi ricorsivi. Pur non esaminandoli ora da un punto di 
vista matematico (li si può' studiare, se necessario, su pubblicazioni di 
informatica di base), si può' pero' osservare che ogni routine del Pascal 
(procedura o funzione) può' essere ricorsiva, cioè' contenere al proprio 
interno, nella parte istruzioni, una chiamata a se stessa. 

Se le regole di visibilità’ sono rispettate, non c'e’ alcuna limitazione 
alle chiamate di routine; perciò' una routine può' eventualmente chiamare 
anche le routine del proprio padre (se stessa compresa) ed ogni altra 
routine antenata. 

C'e’ tuttavia il problema della mutua ricorsivita 1 , che si presenta 
quando due routine dello stesso livello si richiamano l'un l'altra 
ricorsivamente, per cui una di esse risulta chiamata prima ancora di 
essere definita. Questo problema viene risolto per mezzo della direttiva 
"FORWARD": 


PROGRAM P; 

PROCEDURE Q; 

FORWARD; 

PROCEDURE S; 

(* risorse di S *) 

BEGIN 

(* istruzioni di S *) 

(* chiamata di Q *) 

END; 

PROCEDURE Q; 

(* risorse di Q *) 

BEGIN 

(* istruzioni di Q *) 

(* chiamata di S *) 

END; 

BEGIN 

(* istruzioni di P *) 

(* chiamata di Q o S o di entrambe *) 
END. 


Fig. 1-6 Routine Mutuamente Ricorsive 

La procedura Q e’ citata per la prima volta in una definizione dove 
compare la direttiva "FORWARD" anziché’ la descrizione per esteso di Q: 
ciò' consente di compilare correttamente la chiamata di G che compare 
all'interno di 5. La descrizione per esteso di Q e' compilata dopo quella 
di 5. 
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Si accenna ora brevemente alle risorse utilizzabili in un programma. 

Il linguaggio Pascal fornisce, già' ad un livello elementare, un certo 
numero di risorse predefinite. 

Si consideri l'esempio: 


PROGRAM P; 

VAR I: INTEGER; 
BEGIN 

WRITE (I) 

END. 


Fig. 1-7 Risorse Predefinite 

URITE costituisce una procedura predefinita (descritta nei dettagli oiu' 
avanti), cioè' e' una risorsa che si può' usare nel programma senza una 
sua precedente definizione. Lo stesso si può' dire dell'identificatore 
INTEGER usato nella definizione della variabile "1"; INTEGER e’ il nome 
della risorsa predefinita che specifica il tipo di valore che "1" può' 
assumere. 

L'uso di risorse predefinite risulta compatibile con le regole di 
visibilità', se si immagina un altro ambiente che comprende il programma 
stesso. Tale ambiente e' il sistema Pascal, che contiene la definizione 
di risorse quali WRITE o INTEGER. 

Tutte queste sono risorse dello stesso livello e precedono il programma, 
in modo da poter essere utilizzate in tutto il testo, a meno di essere 
messe in ombra’da risorse piu' interne aventi lo stesso nome. 


LINGUAGGIO PASCAL MANUALE GENERALE 
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■PASCAL SYSTEM 

CONST MAXINT = 
TYPE INTEGER 
REAL =.. 


VAR INPUT:. 
OUTPUT: 


!-PROCEDURE READ;-, 


!-PROCEDURE WRITE;-, 


J 


I-FUNCTION SIN;-, 


. v'^rn.PROGIlAM AEG; .. . 

, ... ■■ 



BEGIN 

comando di esecuzione 


n 


--END_ 


tig. 1-8 Risorse ed Istruzioni Predefinite 


Anche se consentito, mettere in ombra 
qualche problema ed e 1 consigliabile 
regola. 


tali risorse può 1 comportare 
evitare l'applicazione di tale 
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IL CONCETTO DI TIPO 


Si considera ora un'importante caratteristica di tutti i linguaggi ad 
alto livello: il concetto di tipo di dato. 

Viene inoltre introdotta una classificazione approssimativa dei tipi, 
distinguendoli in semplici e strutturati; e dei piu' importanti strumenti 
linguistici per la loro definizione: gli "enumeratori" ed i 
"costruttori”. 

E' noto che i programmi non operano direttamente sul mondo reale, ma su 
sue rappresentazioni simboliche. Come esempio si può* considerare un 
programma di gioco degli scacchi, che ovviamente non opera su una 
scacchiera ma su una sua rappresentazione, localizzata fisicamente nella 
memoria del calcolatore. 

Quindi, per scrivere un programma, si deve analizzare il problema e 
scegliere la migliore rappresentazione delle entità' implicate (le 
risorse). 

E' evidente che la rappresentazione migliore e' quella piu' vicina al 
problema reale. Per esempio, riguardo alla scacchiera non conviene 
considerare 64 variabili che contengono numeri interi; e' certamente 
meglio considerare una tabella 3*8 costituita da "caselle" ognuna delle 
quali può' assumere uno dei seguenti valori: "vuoto”, "pedone", 
"alfiere", "regina", ecc. 

11 linguaggio Pascal consente la stesura di programmi le cui entità' 
sono espresse negli stessi "termini" usati nel mondo reale; cosi’, invece 
di rendere il problema conforme al programma, si può' modellare il 
programma in conformità' del problema. 

Ciò' e' possibile se le variabili sono viste come contenitori non di 
numeri, ma di valore di ogni tipo. Una variabile deve essere 
considerata come un oggetto contenente alcuni valori definiti nel 
programma e denotati da identificatori, oltre che da numeri o stringhe di 
caratteri. 


L'insieme di tutti i valori che una variabile può’ assumere e’ detto il 
"tipo” di quella variabile. 

Perciò' definire un tipo significa definire un insieme di valori. 


In riferimento all’esempio precedente, si 
elencando i suoi valori: "re”, "regina", 
"pedone", "vuoto”. Una variabile di tipo " 
di questi valori: non ha senso assegnarle 


può' definire il tipo "casella" 
"alfiere", "cavallo", "torre", 
casella" può' assumere solo uno 
un valore diverso. 


Come ulteriore esempio si può' considerare il tipo "scacchiera"; 
l'insieme dei valori di questo tipo e' costituito dall'insieme di tutte 
le possibili combinazioni dei 64 valori delle sue caselle. 


E' evidente che per definire questo tipo, non conviene elencare tutti i 
possibili valori, ma usare una definizione piu' concisa: il tipo 
"scacchiera" e' una matrice 8 * 8 di elementi di tipo "casella". 
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Spesso e 1 necessario definire alcune operazioni associate al tipo in 
considerazione. 

La definizione di un tipo implica generalmente quella di alcune 
operazioni che agiscono sui suoi valori. 


Per esempio si può 1 considerare il tipo INTEGER come l'insieme dei valori 
che variano da -infinito a +infinito, fornito di un insieme di 
operazioni come la somma, il prodotto, la divisione, e cosi 1 via. 


Come altro esempio, 
dei valori: "bianco 
"nero"; e lo si può' 


si può 1 considerare il tipo "colore" come l'insieme 
", "giallo”, "arancione", "rosso", "blu", "viola", 
immaginare dotata dell'insieme di operazioni: 


"piu"’ definito come 

PIU' (ROSSO, BLU)= VIOLA 

PIU' (GIALLO, ROSSO) = ARANCIONE 

"inverso" definito come 

INVERSO (NER0)= 3IANC0 
INVERSO (GIALL0)= VIOLA 

"tonalità"' definito come 

TONALITÀ' (BIANC0)= 0 
TONALITÀ* (GIALLO)= 1 

TONALITÀ' (NERO) = 6 


Una variabile di tipo colore può' assumere solo uno dei valori sopra 
elencati, sui quali si può' agire con le operazioni definite 
precedentemente. Si consideri ora una parte di un programma Pascal che 
utilizza questo tipo: 

TYPE COLORE = (BIANCO, GIALLO, ARANCIONE, ROSSO, 3LU, VIOLA, NERO); 

VÀR )(, Y : COLORE; 

I : INTEGER; 

BEGIN 

X:= ROSSO: 

Y:= INVERSO (X); 

1:= TONALITÀ' (PIU'(Y, BIANCO)); 

END. 


Gli identificatori usati X, Y, I sono nomi di variabili, poiché' appaiono 
dopo la parola chiave "VAR". Essi possono essere usati in un' istruzione 
di assegnazione (X:= ...) oppure in un' espressione (...:= INVERSO(X)). 
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BIANCO, GIALLO, ..., NcRO sono nomi di costanti, o meglio nomi di valori 
del tipo colore: non devono essere usati come oggetti di un' 

assegnazione, ma possono essere usati in un'espressione (...:= ROSSO). 
COLORE e 1NTEGER sono nomi di tipi: non si devono usare nella parte 
istruzioni, ma solo nella parte di descrizione delle risorse (VAR...: 
COLORE). 

Qualsiasi altro uso di questi identificatori, diverso da quello 
descritto, non ha significato. 

Nei successivi due paragrafi viene introdotta una classificazione di 
tipi, distinguendo i concetti di tipo "semplice" e tipo "strutturato". 


TIPI SEMPLICI 

Un tipo semplice e* un insieme di vaio - ' c-ì-^cuno dei quali e' 
considerato come un elemento informativo elementare ed indivisibile. 

Ogni valore e' "costante" all'interno del suo tipo, ed e' denotato da un 
identificatore , da un numero o da una stringa, in relazione al modo in 
cui il tipo e' stato definito. 

Esistono due strumenti linguistici di base per la definizione del tipo 
semplice: 

enumerazione, che consiste nell'elencare tutti i valori di un tipo 
nuovo definito dall'utente; questi valori sono distinti tramite nuovi 
identificatori e sono considerati in ordine ascendente secondo 
l’ordine in cui sono scritti. 

"subrange", che consiste nello specificare il primo e l'ultimo valore 
di un sottoinsieme compatto di un tipo semplice precedentemente 
definito. 

Esempi di tipi enumerativi: 


TYPE CASELLA 

COLORE 

MISURA 

GIORNO 

SEME 


(VUOTO, PEDONE, CAVALLO, ALFIERE, 
TORRE, REGINA, RE); 

(BIANCO, GIALLO, ARANCIONE, ROSSO, 
BLU, VIOLA, NERO); 

(TEMPERATURA, PRESSIONE, UMIDITA', 
FUMOSITÀ'); 

(LUNEDI, MARTEDÌ, MERCOLEDÌ, GIOVEDÌ, 
VENERDÌ, SABATO, DOMENICA); 

(PICCHE, FIORI, QUADRI, CUORI); 


ClFRt_R0M = (I, V, X, L, C, D, M); 
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Esempi di tipi "subrange": 

TYPE COLORE_CH1ARO = BIANCO..ARANCIONE; 

G10RN1_FER1AL1 = LUNEDI..VENERDÌ ; 

SEM1_R0SS1 = QUADRI..CUORI; 

INDICE 1..1QO; 

LETTERA = "A".."Z"; 


Inoltre si hanno alcuni particolari tipi semplici propri del linguaggio, 
che sono risorse predefinite, indicate con i seguenti identificatori: 

1NTEGER indica l'insieme dei numeri interi; 

REAL indica l'insieme dei numeri reali; 

BOOLEAN indica l'insieme dei valori: falso 

e vero; 

CHAR indica l'insieme dei caratteri (che 

dipende dall'implementazione). 

Da un punto di vista concettuale questi tipi non differiscono da quelli 
che l'utente può' definire per enumerazione, poiché' sono costituiti da 
insiemi ordinati di valori, denotati non solo da identificatori ma anche 
in altro modo (numeri, stringhe). Pero' l'insieme di valori definiti 
dai tipi 1NTEGER, REAL e CHAR dipendono dalla particolare 
implementazione. 

Le operazioni che si possono applicare ad un tipo definito da programma 
devono essere definite utilizzando le routine, mentre si hanno alcune 
operazioni, applicabili ai tipi predefiniti, anch'esse predefinite (+, -, 
*, /, EXP, LN,...). 

Inoltre vi sono alcune operazioni predefinite per tutte le varietà’ di 
tipi semplici, anche definite da programma, come gli operatori 
relazionali (=, >, <, >=, ...), successore e predecessore (5UCC, 
PRED), e cosi' via. 
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TIPI STRUTTURATI 


Un tipo strutturato e' un insieme di valori ciascuno dei quali costituito 
da un aggregato di valori di altri tipi. 

Un tipo strutturato e‘ caratterizzato dai tipi dei valori che lo 
compongono, chiamati tipi base, e da un metodo di strutturazione. 

Non e' possibile definire un tipo strutturato con l'enumerazione dei suoi 
valori, sia perche' non ci sono identificatori che denotano i valori, sia 
perche’ spesso la cardinalita' e' elevata. 

I valori strutturati sono trattati per lo piu' a livello di componente: 
il riferimento ai componenti e' effettuato tramite le operazioni 
associate al tipo, dette "selezioni”. 

Uno strumento linguistico che definisce sia il metodo di strutturazione 
che l'operazione di selezione si chiama "costruttore"; esso pero' non 
definisce completamente il tipo strutturato, poiché' non specifica il 
tipo base. Un costruttore può' essere visto come un tipo strutturato, i 
cui tipi base sono parametrizzati e dotati di un' operazione di 
selezione. 

Si considerano ora alcuni esempi di costruttori. 

II primo esempio riguarda la rappresentazione, in un programma Pascal, 
di una carta d'identità'. L'intera informazione viene suddivisa in un 
numero di porzioni di informazione piu' dettagliate (e piu' elementari): 
nome, cognome, data di nascita e luogo di nascita. 

L'ordine di tali porzioni di informazione sulla carta d'identità' non e' 
rilevante; ciascuna e' selezionata individualmente tramite un 
identificatore: "nome", "luogo di nascita"., ecc. 


JOHN 

aro 

29 

2 1952 

LONDON 

nome 

cognome 


data di 

nascita 

luogo di 
nascita 


Fig. 1-9 Rappresentazione Grafica di una Carta d'identità' 

Questo metodo di strutturazione e di operazione di selezione costituisce 
il costruttore RECORD, in cui i tipi base (detti campi) sono i tipi di 
ciascuna porzione di informazione. 

11 costruttore RECORD può' essere usato per definire il tipo strutturato 
"CARTA_1DENT1TA'", descritto nel modo seguente: 
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TYPE CARTA_1DENT1TA' = RECORD 

NOME: STR1NG; 

COGNOME: STR1NG; 

DATAJM5C1TA: RECORD; 

GIORNO: 1..31; 
MESE: 1..12; 

' ANNO: 1NTEGER 
END; 

LUOGO_NASCITA: STR1NG 
END; 


Quindi si può' dire che l'insieme dei valori del tipo CARTA IDENTITÀ 1 e' 
dato dalla combinazione di tutti i possibili valori (cioè' tipi) di ogni 
porzione di informazione. 

Si deve notare che il campo DATA_NA5C1TA e' a sua volta di tipo record. 

Come secondo esempio, si vuole rappresentare l'insieme di valori che una 
scacchiera può’ assumere. 

Si tratta di una matrice 8*8, costituita da caselle che possono 
contenere, ognuna, un pezzo di un giocatore. Si vuole inoltre selezionare 
le singole caselle con una coppia di coordinate, ad esempio "C7" o in 
modo simile. 

In altri termini si ha a disposizione un certo numero di valori 
componenti, tutti dello stesso tipo (CASELLA) il cui ordine e' rilevante. 

Ogni valore e' selezionato tramite indici: il costruttore che indica tale 
metodo di strutturazione e tale operazione di selezione e' chiamato 
ARRAY. 

Quindi si può' definire il tipo strutturato "SCACCHIERA" specificando il 
tipo base nel modo seguente: 


TYPE SCACCHIERA = ARRAY [1..B, 'A'..'H'] OF CASELLA 
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COMPONENTE 

SELEZIONATO 

TYPE = CASELLA 


= SCACCHIERA 


Fig. 1-10 Rappresentazione del Tipo Strutturato SCACCHIERA Definito 
Tramite il Costruttore ARRAY 

Come terzo esempio si può' considerare la rappresentazione di un mazzo di 
carte durante una partita di poker. Si tratta della sequenza di un numero 
variabile di carte, in cui solo quella superiore può' essere estratta e 
sono consentiti possibili inserimenti soltanto dall'ultima carta del 
mazzo. 



Fig. 1-11 Un Mazzo di Carte in una Partita di Poker 

Questo metodo di strutturazione ed operazione di selezione e' detto 
costruttore QUEUE (le operazioni di selezione sono generalmente chiamate 
ENQUEUE e DEQUEUE). 11 tipo strutturato MAZZO_CARTE può’ essere definito 
specificando il tipo base CARTA. 
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Un costruttore simile e’ lo STACK. Esso differisce dalla coda (queue) 
poiché’ inserimenti ed estrazioni sono effettuati nella stessa direzione 
(tali operazioni di selezione sono comunemente chiamate PUSH e POP). 

Un ultimo esempio può' essere la rappresentazione di un libro, esso 
infatti e' costituito da un numero variabile e ordinato di pagine, 
scritte e/o lette sequenzialmente a partire dalla prima pagina. 

11 costruttore che consente la definizione di un simile tipo strutturato 
e' chiamato FILE, e la definizione del tipo LIBRO e' effettuato nel modo 
seguente: 


TYPE PAGINA = ...; 

LIBRO = FILE OF PAGINA; 

Si deve osservare che il tipo base può' a sua volta essere un tipo 
strutturato: il tipo PAGINA, per esempio, può' essere definito come un 
array di righe. 


TYPE RIGHE = ...(^eventualmente strutturato*); 

PAGINA = ARRAY [1..30] OF RIGHE; 

LIBRO = FILE OF PAGINA; 

1 costruttori piu' comunemente usati sono predefiniti in Pascal cioè': 
array, record, file ecc. 

Tuttavia costruttori particolari (stack, queue, tree,...) possono essere 
definiti da programma per mezzo delle librerie di risorse. 


ESECUZIONE DEI PROGRAMMI E GESTIONE DELLA MEMORIA 

Viene ora illustrata l'esecuzione di un programma Pascal; si esaminano 
soltanto le chiamate di routine (procedure o funzioni), le quali 
costituiscono delle chiamate a macchine astratte; non vengono invece 
illustrati la sintassi e il formalismo di tali chiamate. 

Comunque, poiché' le chiamate di routine implicano l'allocazione di 
memoria, e' necessario indicare le tecniche di gestione della memoria con 
il Pascal, cioè' l'allocazione automatica nel Run-Time-Stack e 
l'allocazione da parte dell'utente nell'area Heap. 





EFFETTO DI UNA CHIAMATA DI ROUTINE 


La chiamata di una routine causa il trasferimento del controllo a tale 
routine; al termine della sua esecuzione il controllo viene nuovamente 
trasferito all'istruzione che segue quella di chiamata. 



t-ig. 1-12 Ordine di Esecuzione 

Tuttavia la chiamata di una routine non comporta soltanto trasferimenti 
di controllo: come già' osservato precedentemente, essa può' essere 
considerata come la chiamata di una macchina astratta, costituita da 
alcune risorse e da alcune istruzioni. 

In particolare, alcune di queste risorse possono essere delle variabili; 
in base alle regole di visibilità 1 , tali variabili non sono visibili al 
momento della chiamata, per cui non e’ necessaria la loro allocazione 
nella memoria del calcolatore. 

Pero’ esse devono essere disponibili durante l'esecuzione della routine; 
pertanto la loro allocazione avviene mentre la routine e' in esecuzione. 

Quando invece la routine e' stata eseguita, queste variabili vengono 
deallocate, in quanto non visibili dall'ambiente esterno. ■ 

Riassumendo, le variabili interne di una routine sono allocate 
dinamicamente e rimangono in memoria solo durante l'esecuzione della 
routine. 

Ciò' consente un' efficiente gestione della memoria, poiché’ vengono 
allocate soltanto le variabili significative, e la stessa area può' 
essere usata, in tempi diversi, per le altre variabili delle varie 
routine chiamate. 
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L'area di memoria riservata alle variabili di un programma Pascal e' 
chiamata Run Time Stack (RTS). Essa e‘ logicamente organizzata come uno 
stack, poiché' l'allocazione e la deallocazione agiscono come gli 
operatori "push" e "pop". 

Viene presentato ora un esempio di esecuzione di programma. 


PROGRAM P; - 

VAR A,B. 

PROCEDURE RI ;- 

VAR C,D. 

-PROCEDURE R2; 

VAR E,F.• 
BEGIN 


-END; 

BEGIN 


chiamata alla routine R2 


-END; 

BEGIN 


chiamata alla routine RI 


Fig. 1-13 Esempio di Allocazione delle Variabili 

Prima di iniziare l'esecuzione di un programma, l'area RTS e' vuota; 
mentre si eseguono le istruzioni di P (il programma principale), l'area 
RTS contiene solo le variabili A e B; quando si esegue una chiamata ad 
RI, vengono allocate le sue variabili C e D; analogamente per le chiamate 
ad R2. 
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PRIMA 

ESEGUENDO 

ESEGUENDO 

ESEGUENDO 

RITORNO 

RITORNO 

DOPO 

DELL'ESE¬ 

P 

RI 

R l 

DA R2 

DA RI 

L'ESECUZIONE 

CUZIONE 




A RI 

A P 



Fig. 1-14 Evoluzione Temporale del Run Time Stack 

Inoltre ciascun rientro da routine provoca la deallocazione celle 
variabili ad essa relative. 

Si considera ora il caso di routine "fratelli" chiamate sequenzialmente 
dalla routine "padre": 
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PROGRAM P;-— 

VAR A,B...... 

— PROCEDURE RI; 
VAR C,D.. 
BEGIN 


-END; - 

PROCEDURE R2; 
VAR E,F.. 
BEGIN 


-END;- 1 

BEGIN 

chiamata alla routine R2 
chiamata alla routine Ri 

END.- 


Fig. 1-15 Esempio di Allocazione delle Variabili 

In questo caso le variabili C e D di RI sono allocate nella stessa 
in cui erano precedentemente allocate le variabili E ed F di R2. 




area 
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PRIMA 

ESEGUENDO 

ESEGUENDO 

RITORNO 

ESEGUENDO 

RITORNO 

DOPO 

DELL'ESE¬ 

CUZIONE 

P 

R2 

OA R2 

A P 

RI 

DA Ri 

A P 

L'ESECUZIONE 


Fig. 1-16 Evoluzione Temporale del Run Time Stack 

Nei due esempi precedenti si può' osservare che le variabili globali (A e 
B) sono sempre allocate durante l'esecuzione del programma, mentre prima 
e dopo l'esecuzione non e' allocata alcuna variabile. 

Ciò' significa che un programma Pascal non può’ comunicare con 
l'ambiente esterno attraverso le sue variabili. 

In Pascal, le tecniche di input/output sono basate su un particolare tipo 
di variabile chiamata "file", che non viene allocata nell'area RTS. 

Infine si consideri il meccanismo di allocazione nel caso di routine 
ricorsive, ad esempio: 
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PROGRAM P;- 

-PROCEDURE RI; - 

VAR A. 

BEGIN 

chiamata alla routine RI (*RICORSIONE*) 

-END; - 

BEGIN 

chiamata alla routine Ri (*PRIMA CHIAMATA*) 

END. - 


Fig. 1-17 Routine Ricorsivi 

In tal caso viene allocata una nuova copia di A ogni volta che viene 
eseguita una chiamata a RI e deallocata dopo ogni ritorno da essa. Se 
RI chiama se stessa due volte ricorsivamente, l'evoluzione dell'area RTS 
e' la seguente: 



PRIMA 

DELL'ESE 

CUZ10NE 


ESEGUENDO 

ESECUZIONE 

ESECUZIONE 

ESECUZIONE 

RITORNO 

RITORNO 

RITORNO 

DOPO 

P 

DI RI 

DI $1 

DI RI 

DA RI 

DI NUOVO 

DA RI 

L'ESECUZIONE 


CHIAMATA 

CHIAMATA 

01 NUOVO 

A RI 

DA RI 

A P 

DEL PROGRAMMA 


DA P 

RICORSI- 

RKORSI- 


A RI 





VAHENTE 

VAMEHTE 






Fig. 1-18 Evoluzione Temporale dell'area RTS Durante l'Esecuzione di 
una Routine Ricorsiva 


Si deve osservare che la stessa variabile A e' allocata piu' volte. Ciò' 
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non crea ambiguità' poiché' ogni chiamata di una routine ricorsiva 
implica l'allocazione di una copia privata delle proprie variabili. 


L'AREA HEAP 

La tecnica di allocazione vista precedentemente, sebbene dinamica, non e' 
direttamente controllata dalle istruzioni del programma, poiché' le 
variabili sono allocate e deallocate automaticamente a causa delle 
chiamate di routine. 

11 linguaggio Pascal fornisce un altro tipo di variabili dinamiche, 
allocate indipendentemente dalle chiamate di routine tramite l'esecuzione 
di istruzioni specifiche. 

Tali variabili non possono essere allocate nell'area RTS, poiché' non 
devono avvertire l'effetto delle chiamate di routine; quindi vengono 
allocate in una diversa area di memoria chiamata HEAP. 

Inoltre non ci si può' riferire ad esse direttamente, ma solo attraverso 
un particolare tipo di variabile, allocata nell’area RTS, chiamato 
"puntatore". 


puntatore 



Fig. 1-19 Run Time Stack e Heap 

Durante l'esecuzione del programma, e 1 possibile allocare nuove variabili 
nello heap usando un' apposita istruzione ("new"). Tale istruzione può' 
essere eseguita indifferentemente all'interno o all'esterno di una 
routine. 

Questo tipo di variabili dinamiche consente la costruzione di strutture 
di dati piu' complesse, come liste, alberi, code ecc. 

Sebbene le variabili dinamiche possono rimanere nello heap anche dopo la 
fine dell'esecuzione del programma, non possono essere usate per 
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l'input/output poiché', dopo la deallocazione del puntatore dall'area 
RT5, non sono piu' accessibili. 


COMPILAZIONI SEPARATE E LIBRERIE DI RISORSE 


Come precedentemente descritto, si e' sempre considerato un programma 
come un' unita' compilabile ed eseguibile in modo autonomo. Tuttavia la 
manutenzione di un grande programma risulta facilitata da compilazioni 
separate di alcune delle sue risorse; cosi' la modifica di una di tali 
"risorse esterne" non richiede la ricompilazione dell'intero programma. 

Inoltre tali risorse esterne possono essere utilizzate da diversi 
programmi semplicemente "importandole" attraverso particolari parole 
chiave, senza richiedere l'inclusione del loro testo. 


Cos’ e* una Libreria di Risorse 

Un programma Pascal può' essere costruito separando fisicamente la 
descrizione di alcune delle sue risorse. 

Le risorse descritte separatamente costituiscono la "libreria di 
risorse". 


1-29 





| : | 

'I 111 

LIBRERIA | 

DI RISORSE ' 


LIBRERIA 
DI RISORSE 


DESCRIZIONE 
DELLE RISORSE 


UNITA' 

PRINCIPALE 


r, 

i 

1 

RISORSE 

INTERNE 

< | 

1 


! 

1 

ISTRUZIONI 

1 

Vi 




ISTRUZIONI 




> PROGRAMMA 




Fig. 1-20 Un Programma Pascal 

Una libreria di risorse e' strutturalmente identica alla parte 
descrizione di risorse di un programma Pascal, quindi può’ contenere la 
descrizione di alcune costanti, tipi, variabili, procedure e funzioni. 

L'unica differenza e’ che essa inizia con la parola chiave MODULE e non 
contiene la parte istruzioni. 
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MODULE ABC ; — 

VAR ... 
PROCEDURE ... 
TYPE ... 
FUNCTION ... 


Fig. 1-21 Una Libreria di Risorse 

E* opportuno indicare come "unita' principale" l'unita' contenente le 
istruzioni. 

Quindi un programma Pascal e 1 costituito da una raccolta di unita' di 
compilazione che contengono alcune "librerie di risorse" ed una e una 
sola "uni^a' principale". 

Le librerie di risorse possono essere compilate separatamente ma, 
naturalmente, non sono eseguibili; devono essere concatenate (operazione 
di linking) ad un' unita' principale che le "importi". 
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DI IMPORTAZIONE 
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La stessa libreria di risorse può' essere concatenata a piu' unita' 
principali di importazione. 


UNITA' PRINCI¬ 
PALE DI 

IMPORTAZIONE 


LIBRERIA 

DI RISORSE 


UNITA' PRINCI¬ 
PALE DI 

IMPORTAZIONE 


COMPILAZIONE 



UNITA' PRINCIPALE 
DI IMPORTAZIONE 
OGGETTO 


COMPILAZIONE 



LIBRERIA DI 
RISORSE OGGETTO 


COMPILAZIONE 



UNITA' PRINCIPALE 
DI IMPORTAZIONE 
0G6ETT0 



PROGRAMMA 

fi 

PROGRAMMA 

OGGETTO 

1 

OGGETTO 


ESECUZIONE 


ESECUZIONE 





‘OUTPUT 


OUTPUT 


Fig. 1-23 Linking di una Libreria di Risorse con due Unita' Principali 
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Si considerano ora le regole di visibilità' per le librerie di risorse: 
un’ unita' principale ed una libreria di risorse sono "fratelli", quindi 
l'una non può’ usare le risorse interne dell'altra. 

Tuttavia alcune risorse della libreria possono essere viste dall'unita' 
principale se sono esplicitamente "esportate" dalla libreria ed 
"importate" nell'unita' principale, e viceversa. 
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-MODULE XYZ - 

CONST A,B,C = ... 

TYPE D,E,F = ... 

VAR G,H,I : ... 
PROCEDURE RI ... 
FUNCTION R2 ... 
PROCEDURE R3 ... 

|mport ra frqm abc; 1 

EXPORT ' 

PROCEDURE R5 ... 


LIBRERIA 
DI RISORSE 



UNITA* 

PRINCIPALE 


Fig. 1-24 Esempio di Meccanismo di Import/Export 




















Nell’esempio precedente, le istruzioni dell'unita 1 principale possono 
chiamare la routine R3 oppure utilizzare la variabile H poiché', sebbene 
descritte nella libreria di risorse, esse sono esportate da XYZ ed 
importate in ABC. La procedura R3 della libreria di risorse può' chiamare 
R4 poiché’ e' importata da ABC. 

L'associazione tra risorse importate ed esportate e' basata sulla 
corrispondenza tra i loro nomi. 

Tutte le risorse non esportate sono completamente nascoste all'ambiente 
esterno e si possono considerare protette da accessi illegali. 

Esistono due usi principali delle librerie di risorse: 

routine separate; 

tipi di dati protetti; 


Routine Separate 

Una libreria di risorse può' essere utilizzata per contenere un insieme 
di routine logicamente correlate. 

Ad esempio, e' possibile costruire una libreria matematica che include 
alcune funzioni o procedure non predefinite. 


MODULE MATREM; - 

FUNCTION POWER ... 

FUNCTION FACTORIAL ... 
FUNCTION RANDOM ... 

PROCEDURE EQUATION ROOTS ... 


Fig. 1-25 Esempio di Routine Separate 

Un altro esempio può' essere una libreria per la gestione di periferiche. 
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MODULE DEVICE_MANAGERS;- 

PROCEDURE LINE__PRINT . . . 
PROCEDURE PAGE_PRINT ... 
PROCEDURE VIDEO_HARD_COPY 
FUNCTION PAGES WRITTEN .. . 


Fig. 1-26 Esempio di Routine Separate 

Infine, per grandi progetti che coinvolgono parecchi programmatori, le 
librerie di risorse consentono una separazione fisica dei testi dei 
programmi in modo tale da riflettere la divisione del lavoro e delle 
responsabilità'. 

Una volta stabilita e memorizzata l'interfaccia comune tra due qualsiasi 
parti, queste possono essere sviluppate e compilate separatamente. 
L'interfaccia comune e' costituita da un testo fisicamente separato, e 
ciò' assicura che ricompilazioni distinte di ciascuna parte non 

invalidino tale interfaccia. 


Tipi di Dati Protetti 

Una libreria di risorse può' essere usata come una descrizione 
generalizzata di un tipo strutturato. 

Un tipo strutturato e' un insieme di valori ciascuno dei quali costituito 
da alcuni valori di un tipo base; l'operazione di selezione permette 
l'accesso a valori del tipo base, talvolta chiamati "elementi''. 

Una libreria di risorse può' definire un tipo strutturato descrivendo 
semplicemente alcune variabili che possono contenere un insieme di 
valori, ed alcune routine che consentono l'accesso agli elementi, o 
altre operazioni associate. 
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MODULE BYNARY TREE; 


VAR A: ... 

PROCEDURE INSERT ... 

PROCEDURE SEARCH ... 

EXPORT INSERT, SEARCH; 


Fig. 1-27 Esempio di Tipo di Dati Protetti: un Albero Binario 

Nell'esempio precedente, la libreria di risorse definisce il tipo 
strutturato "albero' binario di...", le cui operazioni di selezione sono 
"insert" e "search". 

Ovviamente vengono esportate solo le operazioni e non le variabili, ci 
si garantisce cosi' contro possibili accessi illegali agli elementi 
dell'albero. 

Altri possibili esempi sono i tipi strutturati "matrix of... M , "stack 
of...". 
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MODULE MATRIX;- 

CONST G = ... 

VAR A : ... 
PROCEDURE SUM ... 

PROCEDURE TIMES ... 

EXPORT ... 


MODULE STACK;- 

TYPE T = ... 

VAR A : ... 
PROCEDURE PUSH ... 

PROCEDURE POP .. . 

EXPORT .. . 


Fig. 1-28 Esempi di Tipi di Dati Protetti 

Si può' aggiungere infine che una libreria di risorse e' utilizzabile 
come una definizione di costruttore, cioè' come un tipo strutturato il 
cui tipo base e 1 parametri zzato. 

Nell'esempio che segue, la libreria di risorse e' usata sia come "coda di 
caratteri" che come "coda di colori": 
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MODULE QUEUE;- I 

I 

IMPORT BASE_TYPE FROM ABC; j 

VAR A; ARRAY [-] OF ABC. BASE_TYPE; j 

PROCEDURE ENQUEUE ... 

PROCEDURE DEQUEUE ... 

: i 

* f 

I 

EXPORT ENQUEUE, DEQUEUE; f 


-PROGRAM ABC; 

TYPE BASE_TYPE = CHAR; 


-PROGRAM ABC ; - 

TYPE COLOR = (....); 

EXPORT BASEJTYPE; 


BASEJTYPE = COLOR; 

IMPORT ENQUEUE, DEQUEUE FROM QUEUE; 


EXPORT BASEJTYPE; 

* 


IMPORT ENQUEUE, DEQUEUE FROM QUEUE; 


rig. 1-29 Libreria di Risorse vista come un Costruttore 

La libreria di risorse importa il tipo base e lo usa nella descrizione 
della coda. 


UNITA' PRINCIPALE DEL PROGRAMMA 

L'unita' principale e' la sola unita' che contiene una sezione istruzioni 
in un programma. L'unita' principale ha la seguente struttura: 

la parola chiave PROGRAM ; 

l'identificatore, che costituisce il nome dell'unita' principale; 

la lista dei parametri del programma, se ce n'e' una, che definisce 
le risorse disponibili prima e dopo l'esecuzione del programma; 

un carattere di punto e virgola ; 

la descrizione delle risorse e' costituita dalla seguente lista delle 
risorse usate nelle istruzioni del programma: 

etichette 

costanti 
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tipi 

variabili 
procedure 
funzioni. 


La descrizione delle risorse può' contenere qualsiasi numero di 
descrizioni, anche nessuna. 

Si deve osservare che alcune delle risorse sopra elencate possono 
essere esportate o importate nelle librerie di risorse, per cui esse 
devono essere elencate nelle due liste corrispondenti: 

lista di export 

lista di import. 

la sezione istruzioni dell'unita 1 principale, preceduta dalla parola 
chiave BEGIN e terminante con la parola chiave END. Questa parte 
della struttura e' chiamata istruzione composta. 

MODULI 

Modulo e' il nome che indica una libreria di risorse; la sua struttura 
e' simile a quella dell'unita’ principale, senza pero' contenere la 
sezione istruzioni. 

Esso e' costituito dai seguenti elementi: 
la parola chiave MODULE 

l'identificatore, che e' il nome del modulo 
il carattere di punto e virgola 

la descrizione delle risorse, che e' la stessa dell'unita' principale 
un punto "." 
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Questo capitolo descrive le principali caratteristiche del linguaggio 
Pascal Microsoft, e definisce i tre livelli ai quali il linguaggio può' 
essere usato. 
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11 Pascal M20 e' basato sul Pascal Microsoft (anche detto MS-Pascal), 
che e' una versione altamente estesa e portabile del linguaggio Pascal. 
Tuttavia in tale contesto l'MS-Pascal viene indicato solamente come 
Pascal. Le sue estensioni, compatibili con lo standard proposto dall' 
Organizzazione Internazionale degli Standards (ISO), facilitano la 
programmazione dei sistemi e delle applicazioni. 

Si può' usare il Pascal al livello dello standard ISO per trasportare i 
programmi a/da altre macchine, oppure, per usare totalmente le capacita' 
di un particolare calcolatore, si possono rendere piu' efficienti i 
programmi usando il linguaggio ai suoi livelli Esteso e di Sistema. 

Con il Pascal si ottengono i vantaggi di programmazione di un linguaggio 
ad alto livello, senza ridurre la velocita' di esecuzione. Poiché' vi 
sono molte conversioni di basso livello al livello macchina, i programmi 
scritti in Pascal sono paragonabili in velocita' a quelli scritti in 
linguaggio assembler. 

Il Capitolo 3, "Generalità' del linguaggio" da' un'ampia descrizione del 
linguaggio, dagli elementi piu' semplici del linguaggio a quelli piu' 
complessi. 1 capitoli successivi completano tale visione generale 
trattando gli elementi, capitolo per capitolo, iniziando dai minori per 
terminare con una descrizione dei programmi e delle altre unita* 
compilabili. 

Per avere informazioni sull'uso del Compilatore Pascal e dettagli sulla 
versione specifica del Pascal qui descritto, si può' vedere l’Appendice 
A, "Caratteristiche di Implementazione" nel manuale "Linguaggio Pascal 
Guida Utente". 


LIVELLI DEL PASCAL 


Il linguaggio Pascal e' organizzato in tre livelli: Standard, Esteso e di 
Sistema. Le caratteristiche di ciascun livello sono descritte in 
dettaglio nell'Appendice B, "Prestazioni del Pascal e lo Standard ISO". 
In breve, le differenze fra i tre livelli sono le seguenti: 

1. Livello Standard 

I programmi scritti in base al livello Standard devono essere 
conformi allo standard ISO; inoltre sono portabili a/da macchine su 
cui operano altri compilatori Pascal compatibili con 1'ISO. Tuttavia 
vi sono alcune alcune estensioni minori rispetto allo standard che, 
pero', a questo livello non causano errori. Per avere ulteriori 
dettagli su tali estensioni e maggiori caratteristiche riguardanti 
lo standard ISO, si può' vedere l'Appendice B, "Prestazioni del 
Pascal e lo Standard ISO". Nel presente manuale le espressioni: 
"Pascal Standard", "lo standard ISO" e "al livello standard del 
Pascal" sono generalmente sinonimi. 
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2. Livello Esteso 


Tale livello e' costituito dalle estensioni strutturate dello 
standard ISO. 1 programmi cosi’ creati risultano portabili fra tutte 
le macchine che hanno la possibilità' di operare in Pascal. 

3. Livello di Sistema 

11 livello di sistema include tutte le caratteristiche disponibili al 
livello esteso, oltre ad alcune estensioni non strutturate, orientate 
verso la macchina, come i tipi indirizzo e la capacita' di accedere a 
tutti i campi dei file control block, utili per la programmazione di 
sistemi. 

Nel presente manuale le estensioni al Pascal Standard sono dette 
"caratteristiche". Un elenco completo di queste caratteristiche ed il 
livello a cui esse sono disponibili, e' riportato nell'Appendice B, 
"Prestazioni del Pascal e lo Standard ISO". Qui di seguito, brevemente, 
vengono descritte alcune caratteristiche selezionate. 

Oltre ai tre livelli già' visti, il Pascal ha un gran numero di 
"metacomandi", cioè' di direttive con le quali e' possibile controllare 
il compilatore. A tale riguardo si veda il Capitolo 19, "Metacomandi". 


CARATTERISTICHE SELEZIONATE 


La seguente lista comprende solo alcune delle caratteristiche disponibili 
ai livelli Esteso e di Sistema. Per.un elenco completo si può' vedere la 
sezione sulle caratteristiche Pascal, nell'Appendice B. 

Carattere di sottolineatura negli identificatori, che aumenta la 
leggibilità 1 

Numerazione non decimale {esadecimale, ottale e binaria), che 
facilita la programmazione al livello di byte e di bit 

Costanti strutturate, che si possono sia dichiarare nella sezione 
dichiarativa di un programma sia usare nelle istruzioni 

Stringhe di lunghezza variabile (tipo LSTR1NG) e particolari 
procedure e funzioni predichiarate per i tipi LSTR1NG, che superano 
le capacita’ di trattamento di stringhe del Pascal Standard 

Super array, uno speciale array di lunghezza variabile la cui 
dichiarazione consente il passaggio di array di lunghezze differenti 
a un parametro di riferimento e 1' allocazione dinamica di array di 
lunghezze diverse 

Tipi predichiarati senza segno BYTE (0-255) e WORD (0-65535), che 
facilitano la programmazione a livello di Sistema 
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Tipi indirizzo (segmentato e non segmentato), che consentono la 
manipolazione degli attuali indirizzi di macchina a livello di 
Sistema 

Lettori di stringa, che consentono alle procedure READ e READLN di 
leggere le stringhe come strutture invece che carattere per carattere 

Interfaccia con il linguaggio assembler, fornita dalle procedure 
PUBLIC ed EXTERN, da funzioni e da variabili, la quale consente di 
interfacciare a basso livello il linguaggio assembler e le routine di 
libreria 

Sezione VALUE, dove e 1 possibile dichiarare i valori costanti 
iniziali delle variabili di un programma 

Valori di ritorno di una funzione di tipo strutturato e di tipo 
semplice 

File diretti (ad accesso casuale) accessibili con la procedura SEEK, 
che migliora le capacita’ standard del Pascal di accedere ai file. 

Valutazione "lazy", uno speciale meccanismo interno per file 
interattivi che consente il normale input interattivo da terminale 

Istruzioni strutturate BREAK e CYCLE, che consentono uscite 
strutturate da un ciclo FOR, REPEAT o WHILE ; e 1" istruzione RETURN, 
che consente un'uscita strutturata da una procedura o funzione 

0THERW1SE nell'istruzione CASE, per mezzo del quale si evita 
esplicitamente di specificare ogni costante CASE. 0THERW1SE e’ anche 
consentito in record con varianti 

Attributo STAT1C per variabili, che consente di indicare che una 
variabile deve essere allocata ad una fissata locazione di memoria 
invece che nello stack 

Attributo 0R1G1N, che può* essere dato a variabili, procedure e 
funzioni per indicare la loro locazione assoluta in memoria 

Attributo 1NTERRUPT per procedure, che avverte il compilatore di dare 
alla procedura una speciale sequenza di chiamata per salvare lo stato 
della macchina nello stack in entrata e ripristinare lo stato della 
macchina in uscita 

Compilazione separata di parti di un programma (unita* e moduli) 

Compilazione condizionale, che usa metacomandi condizionali nel file 
sorgente per abilitare o disabilitare la compilazione di parti del 
sorgente. 




CARATTERISTICHE NON IMPLEMENTATE 


Le seguenti caratteristiche non sono attualmente implementate oppure lo 
sono soltanto come descritto qui di seguito: 

0THERW15E non e* accettato nelle dichiarazioni RECORD 

Per le funzioni PURE e' generato codice, ma non e' eseguito alcun 
controllo 

Gli operatori di livello Esteso SHL, SHR e 1SR non sono disponibili 

Le routine di libreria ENAB1N, D1S81N e VECT1N non sono disponibili; 
l'attributo 1NTERRUPT e' ignorato 

Per le istruzioni GOTO non valide e per i valori REAL non 
inizializzati non e' eseguito alcun controllo 

READ, READLN e DECODE non possono avere M e N parametri 

L'1/0 enumerato, per la lettura e scrittura di costanti enumerate 
come stringhe, non e' disponibile 

Possono essere dati i metacomandi $TAGCK, $STANDARD, $EXTEND e 
$SY$TEM, pero' non procurano alcun effetto 

11 metacomando $1NC0N5T non accetta costanti stringa. 
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SOMMARIO 


Questo capitolo contiene una descrizione sommaria del linguaggio Pascal, 
dagli elementi più complessi a quelli più elementari. Ciascuno degli 
altri capitoli seguenti descrive questi argomenti in dettaglio, iniziando 
pero' da quelli piu' elementari (la notazione) per terminare con quelli 
piu' complessi del linguaggio (i metacomandi).. 
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METAC0MAND1 

1 metacomandi Pascal forniscono un linguaggio di controllo per il 
compilatore Pascal. 1 metacomandi permettono di specificare le opzioni 
che riguardano l'operazione totale di una compilazione. Per esempio si 
possono compilare in modo condizionato differenti file sorgenti, si può' 
generare un file listing, abilitare o disabilitare un codice di i 

controllo di errori runtime. ; 

1 metacomandi sono inseriti entro le istruzioni di commento, ed iniziano 
tutti con un segno di dollaro ($). Quando si chiama il compilatore, 

alcuni possono essere dati anche sotto forma di commutatori. . 

Anche se la maggior parte delle implementazioni del Pascal possiede ! 

qualche mezzo di controllo del compilatore, tali metacomandi Pascal non 
fanno parte del Pascal Standard e quindi non sono portabili. 

Questi sono i metacomandi generalmente disponibili: | 


$BRAVE 

$PAGE1F 

$DEBUG 

$PAGES1ZE 

$ENTRY 

$P0P 

$ERR0RS 

$PUSH 

SEXTEND 

$RANGECK 

$G0T0 

$REAL 

$1NCLUDE 

$R0M 

$1NC0N5T 

$RUNT1ME 

$INDEXCK 

$SIMPLE 

$1NT1CK 

$SIZE 

$1F $THEN $ELSE $END 

$SKIP 

$1NTEGER 

$SPEED 

$L1NE 

$STACKCK 

$LINES1ZE 

$STAN0ARD 

$L1ST 

$SUBTITLE 

$MATHCK 

$SYMTAB 

$MESSAGE 

$SYSTEM 

$N1LCK 

$TAGCK 

$0C0DE 

$TITLE 

$0PTBUG 

$UARN 

$PAGE 



Per una descrizione completa dei metacomandi si può' vedere il Capitolo 
19, "Metacomandi". 



PROGRAMMI E PARTI COMPRABILI DEI PROGRAMMI 


11 compilatore Pascal elabora programmi, moduli e implementazioni di 
unita'. Tutti questi programmi compilabili e parti di programmi sono 
indicati come unita' di compilazione. Si possono compilare moduli e 
implementazioni di unita' separatamente, e poi collegarli ad un programma 
senza dover ricompilare il modulo o l'unita’. 


L'unita' fondamentale di compilazione e' il programma. Un programma e' 
costituito da tre parti: 


1. L'intestazione del programma identifica il programma e fornisce una 
sua lista di parametri. 


2. La sezione dichiarativa segue l'intestazione e contiene dichiarazioni 
di etichette, costanti, tipi, variabili, funzioni e procedure. 
Alcune di queste dichiarazioni sono opzionali. 

3. 11 corpo del programma segue tutte le dichiarazioni. E' racchiuso tra 
le parole riservate BEG1N e END e termina con un punto. 11 punto 
serve a segnalare al compilatore che la fine del file sorgente e' 
stata raggiunta. 


11 programma seguente illustra queste tre parti della struttura di un 
programma : 


{Intestazione del programma} 

PROGRAM FRIDAY (INPUT, OUTPUT); 

(Sezione dichiarativa) 

LABEL 1; 

CONST DAYS_1N_WEEK = 7; 

TYPE KEYB0ARD_1NPUT = CHAR; 

VAR KEY1N: KEYB0ARD_1NPUT; 

{Corpo del programma} 

BEG1N 

URITE(81S TODAY FR1DAY? '); 

1: READLN(KEYIN); 

CASE KEY1N OF 

' Y ' T ' y ' : WRITELN('lt"s Friday.'); 

*N', 'n' : WR1TELN('It"s not Friday.'); 
0THERW1SE 

WR1TELN{'Inserire Y oppure N.'); 
WRlTE('Per favore reintrodurre: '); 
GOTO 1 
END 
END. 
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Questa struttura suddivisa in tre parti (intestazione, sezione 
dichiarativa, corpo) e' usata in tutto il linguaggio Pascal. Procedure, 
funzioni, moduli e unita' sono tutti simili, nella struttura, ad un 
programma. 

1 moduli sono unita' di compilazione simili a un programma e contengono 
la dichiarzione di variabili, costanti, tipi, procedure e funzioni ma non 
istruzioni di programma. Si può' compilare un modùlo separatamente e poi 
collegarlo ad un programma, ma il modulo non può' essere eseguito da 
solo. 

Esempio di modulo: 


{intestazione di modulo} 
MODULE MODPART; 

{Sezione dichiarativa} 
CONST PI = 3.14; 

PROCEDURE PARTA; 

BEG1N 

WRITELN ('parta') 
END; 

{Corpo} 

END. 


Un modulo, come un programma, termina con un punto; pero' a differenza di 
esso un modulo non contiene alcuna istruzione di programma. 

Un'unita' di compilazione ha due sezioni: un'interfaccia e 
un'implementazione. Come un modulo, un’implementazione può' essere 
compilata separatamente e piu* tardi collegata al resto del programma. 
L'interfaccia contiene le informazioni che permettono di collegare 
un'unita' ad altre unita', moduli e programmi. 




Esempio di unita* di compilazione: 

{intestazione per l'interfaccia} 

INTERFACE; 

UN1T MUSIC (S1NG, TOP); 

{Dichiarazione per l'interfaccia} 

VAR TOP : 1NTEGER; 

PROCEDURE S1NG; 

{Corpo dell'interfaccia} 

BEG1N 

END; 

{intestazione per 1 1 implementazione} 

1MPLEMENTAT10N OF MUSIC; 

{Dichiarazione per l'implementazione} 

PROCEDURE S1NG; 

BEG1N 

FOR 1:= 1 TO TOP DO 
BEG1N 

URITE ('FA '); WR1TELN ('LA LA’) 

END 

END; 

{Corpo dell'implementazione} 

BEG1N 

TOP : = 5 
END. 

Un'unita', come un programma o un modulo, termina con un punto. 

1 moduli e le unita' permettono di sviluppare grandi programmi 
strutturati che possono essere suddivisi in parti. Questo risulta 
vantaggioso nelle seguenti situazioni: 

Se un programma e' di grandi dimensioni, e' piu' facile svilupparlo, 
testarlo e mantenerlo suddividendolo in parti. 

Se un programma e' grande e la ricompilazione dell'intero file 
sorgente richiede troppo tempo, con la suddivisione del programma in 
parti si guadagna del tempo per la compilazione. 

Se si intende includere determinate routine in un certo numero di 
differenti programmi, si può 1 creare un singolo file oggetto che 
contiene queste routine e poi collegarlo a ciascuno dei programmi in 
cui le routine sono utilizzate. 

Se determinate routine hanno differenti implementazioni, le si può 1 
collocare in un modulo per testare la validità 1 di un algoritmo e poi 
creare e implementare routine simili in linguaggio assemblativo per 
aumentare la velocita' dell’algoritmo. 
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Per una descrizione piu' completa di programmi, moduli e unita' si può' 
consultare il Capitolo 18 su "Unita 1 compilatili di un programma". 


PROCEDURE E FUNZIONI 


Le procedure e le funzioni si comportano come sottoprogrammi che operano 
sotto la supervisione di un programma principale. Tuttavia, a differenza 
dei programmi, le procedure e le funzioni possono essere nidificate le 
une dentro le altre e possono anche chiamare se stesse. Inoltre 
posseggono sofisticate capacita' di passaggio dei parametri che i 
programmi invece non hanno. 

Una procedura e' chiamata da un'istruzione che consiste semplicemente nel 
nome della procedura; una funzione può’ essere chiamata in una 
espressione ogni volta che e' richiesto un valore. 

Una dichiarazione di procedura ha, come un programma, un'intestazione, 
una sezione dichiarativa ed un corpo. 

Esempio di dichiarazione di procedura: 

{intestazione} 

PROCEDURE C0UNT_T0(NUM : 1NTEGER) ; 

{Sezione dichiarativa} 

VAR 1 : 1NTEGER; 

{Corpo} 

BEG1N 

FOR I := 1 TO NUM DO WRITELN (1) 

END; 

Una funzione e' una procedura che ritorna un valore di un tipo 
particolare; quindi una dichiarazione di funzione deve indicare il tipo 
del valore di ritorno. 

Esempio di dichiarazione di funzione: 


{intestazione} 

FUNCT10N ADD (VALI, VAL2 : 1NTEGER): 1NTEGER; 

{Sezione dichiarativa vuota} 

{Corpo} 

BEG1N 

ADD := VALI + VAL2 
END; 
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Le procedure e le funzioni si presentano differentemente dai programmi, 
per il fatto che i loro parametri hanno tipi ed altre opzioni. Come il 
corpo di un programma, il corpo di una procedura o di una funzione e' 
compreso tra le parole riservate BEG1N e END; pero' in tal caso la parola 
"END" e' seguita da un punto e virgola piuttosto che da un punto. 

La dichiarazione di una procedura o di una funzione e 1 una cosa 
completamente distinta dal suo uso in un programma. Per esempio, la 
procedura e la funzione sopra dichiarate possono effettivamente 
presentarsi cosi' in un programma: 


TARGET NUMBER := ADD (5, 6); 
C0UNT_T0 (TARGETJWMBER); 


Per una completa descrizione delle procedure e delle funzioni si può' 
vedere il Capitolo 15 su "Introduzione a Procedure e Funzioni", 

Invece per una descrizione delle procedure e delle funzioni predichiarate 
come parte del linguaggio Pascal, si può' vedere il Capitolo 16 su 
"Procedure e Funzioni Disponibili”, e il Capitolo 17 su "Procedure e 
Funzioni Orientate su File". 


ISTRUZIONI 


Le istruzioni compiono azioni come calcoli, assegnazioni, alterazione del 
flusso di controllo, lettura e scrittura di file. Le istruzioni si 
trovano all'interno del corpo di programmi, procedure e funzioni, e sono 
eseguite mentre il programma e' in fase di esecuzione. Le istruzioni del 
Pascal eseguono le azioni descritte nella Tabella 3-1. 
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.. .1 

Istruzione 

i 

Azione 

Assegnazione 

Sostituisce il valore corrente di una variabile 
con un nuovo valore. 1 

BREAK 

1 

Consente di uscire dal ciclo attualmente in ese¬ 
cuzione. ! 

CASE 

Permette la scelta di un'azione tra le tante di- : 

disponibili, basata sul valore di un’espressione. ; 

i 

CYCLE 

Da’ inizio alla successiva iterazione di un ciclo. 

FOR 

Esegue un'istruzione ripetutamente mentre viene 
assegnata una progressione di valori ad una va¬ 
riabile di controllo. 

GOTO 

Continua l'elaborazione di un'altra parte del 
programma. j 

I 

1F 

Insieme a THEN e ELSE permette l'esecuzione con¬ 
dizionale di un'istruzione. 

Chiamata di procedura 

Chiama una procedura con valori attuali del para¬ 
metro. 

REPEAT 

Ripete una sequenza di istruzioni una o piu' vol¬ 
te, finche’ un'espressione booleana diventa vera. 

RETURN 

Consente di uscire dalla procedura, funzione, 
programma o implementazione correnti. 

WH1LE 

Ripete un'istruzione zero o piu' volte, finche' 
un'espressione booleana diventa falsa. 

W1TH 

Permette di includere nel dominio di un'istruzio¬ 
ne i campi di uno o piu 1 record, in modo da poter 
far diretto riferimento ai campi. 

^ ^ __ _ _ _ _ ,i , - __ 


Tabella 3-1 Sommario delle Istruzioni Pascal 

Per una descrizione dettagliata di ciascuna di queste istruzioni si può* 
vedere il Capitolo 14 su "Istruzioni". 







<aS 



ESPRESSIONI 

Un'espressione e 1 una formula per calcolare un valore. E' costituita da 
una sequenza di operatori (che indicano l'azione da eseguire) e di 
operandi (il valore su cui l'operazione e' eseguita). Gli operandi 
possono contenere chiamate di funzioni, variabili, costanti o anche altre 
espressioni. Nella seguente espressione il piu' (+) e' un operatore, 
mentre A e B sono operandi: 

A + B 

Vi sono tre tipi fondamentali di espressioni: 

1. Le espressioni aritmetiche, che compiono operazioni aritmetiche sugli 
operandi in un'espressione. 

2. Le espressioni booleane, che compiono operazioni logiche e di 
confronto con risultati booleani. 

3. Le espressioni set, che compiono operazioni di combinazione e di 
confronto su insiemi, con risultati booleani o set. 

Le espressioni ritornano sempre valori di un tipo specifico. Per esempio 
se A, B, C e D sono tutte variabili di tipo REAL, allora la seguente 
espressione da' un risultato REAL: 

A * B + (C / D) + 12.3 

Le espressioni possono anche includere indicatori di funzione: 

ADDREAL (2, 3) + (C / D) 

ADDREAL e' una funzione dichiarata precedentemente nel programma. Ha due 
parametri valore di tipo REAL, che somma insieme per ottenere il totale. 
Questo totale e' il valore di ritorno della funzione, che e' poi aggiunto 
a (C / D). 

Le espressioni non sono istruzioni, ma possono essere componenti di 
istruzioni. Nell'esempio seguente l'intera linea e' un'istruzione; solo 
la parte dopo il segno di uguale e' un'espressione: 

X:=2/3 + A*B 

Per una descrizione dettagliata delle espressioni si può' vedere il 
Capitolo 13 su "Espressioni". 
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VARIABILI 

Una variabile e* un valore che cambia durante il corso di un programma; 
ogni variabile deve essere di uno specifico tipo di dati. 

Dopo aver dichiarato una variabile nell'intestazione o nella sezione 
dichiarativa di un'unita' compilativa, procedura o funzione, può' essere 
usata in tutti questi modi: 

si può' iniziali zzarla nella sezione VALUE di un programma 
si può' assegnarle un valore con un'istruzione di assegnazione 
si può’ passarla come parametro a una procedura o funzione 
si può’ usarla in un'espressione 

La sezione VALUE e’ una caratteristica del Pascal che si applica soltanto 
a variabili allocate in modo statico (variabili con un indirizzo fissato 
in memoria). Come prima cosa si dichiarano le variabili come indicato 
nell'esempio seguente: 

VAR 1, J, K, L : INTEGER; 

Poi si assegnano ad esse valori iniziali nella sezione VALUE: 

VALUE I := 1 ; J := 2; K := 3; L := 4; 

Piu' tardi, nelle istruzioni, le variabili possono essere assegnate e 
usate come operandi nelle espressioni : 


1 := J + K + L; 

J := 1 + 2 + 3; 

K := (J * K) + 9 + (L D1V J); 


Per una descrizione completa delle variabili si può' vedere il Capitolo 
12 su "Variabili e Valori". 


COSTANTI 


Una costante e' un valore che non cambia durante il corso di un 
programma. Al livello Standard un costante può' essere: 

un numero, come 1.234 e 100 

una stringa racchiusa tra segni di apice, come 'Pascal' o 'A1207' 






un identificatore di costante sinonimo di una costante numerica o 
stringa 

Gli identificatori di costanti si dichiarano nella sezione CONST di 
un'unita 1 compilativa, procedura o funzione 


CONST REAL_CONST = 1.234; 
MAX_VAL =100; 

T1TLE = 'Pascal'; 


Poiché' nel Pascal l'ordine delle dichiarazioni e' flessibile, si possono 
dichiarare costanti in ogni punto della sezione dichiarativa della parte 
compilabile di un programma, per un numero indefinito di volte. 

Le costanti sono strettamente collegate al concetto di variabile e tipo. 
Le variabili sono tutte di qualche tipo; i tipi, a loro volta, indicano 


un intervallo di valori assumibili. Questi 
costanti. 

valori, 

infine, sono 

tutti 

Due potenti 
espressioni 

estensioni del Pascal sono le 
costanti. 

costanti 

strutturate 

e le 


VECTOR, nell'esempio seguente, e‘ un array costante: 

CONST VECTOR = VECTORTYPE (1,2,3,4,5); 

MAXVAL, nell'esempio seguente, e' un'espressione costante (A, B, C e 
D devono anche essere costanti): 

CONST MAXVAL = A * (B D1V C) + D - 5; 

Per una descrizione completa di questi e di altri aspetti sulle costanti 
si può’ vedere il Capitolo 6 sulle "Costanti". 


TLP1 


Molta della potenza e della flessibilità' del Pascal risiede nella sua 
capacita' di dare dei tipi ai dati. Pur essendo disponibile una grande 
varietà' di tipi di dati, questi possono essere suddivisi in tre grandi 
categorie: semplici, strutturati e di riferimento. 

1. Un tipo di dati semplice rappresenta un singolo valore; un tipo 
strutturato rappresenta una raccolta di valori. 1 tipi semplici 
comprendono i seguenti: 

1NTEGER enumerato 

WORD subrange 

CHAR REAL 

B00LEAN 1NTEGER4 
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2. I tipi strutturati comprendono i seguenti: 

ARRAY 

RECORD 

SET 

FILE 

3. I tipi di riferimento consentono in modo molto efficace la 
definizione ricorsiva dei tipi. 

In Pascal a tutte le variabili deve essere assegnato un tipo di dati. Un 
tipo può' essere predichiarato (per esempio INTEGER e REAL) oppure 
definito nella sezione dichiarativa di un programma. Nel seguente esempio 
di dichiarazione di tipo si crea un tipo in grado di memorizzare delle 
informazioni su uno studente: 


TYPE 

STUDENT = RECORD 

AGE : 5..18; 

SEX : (MALE, FEMALE); 

GRADE : INTEGER; 

GRADE_PT : REAL; 

SCHEDULE : ARRAY [1..10] OF CLASSES 


Per una descrizione dettagliata dei tipi di dati e' utile vedere i 
seguenti capitoli: 


Capitolo 

Capitolo 

Capitolo 

Capitolo 

Capitolo 


7, "Introduzione ai tipi di dati" 

8, "Tipi semplici" 

9, "Array, record e set" 

10, "File" 

11, "Tipi di riferimento e altri tipi" 


IDENTIFICATORI 


Gli identificatori sono nomi che indicano costanti, variabili, tipi di 
dati, procedure, funzioni ed altri elementi di un programma Pascal. Le 
procedure e le funzioni devono avere identificatori; le costanti, i tipi 
e le variabili possono avere identificatori (ed e' utile per loro 
averli ). 

Il programmatore costruisce la maggior parte degli identificatori del 
programma ed assegna loro un certo significato nelle dichiarazioni. 
Altri identificatori sono i nomi delle variabili, dei tipi di dati, delle 
procedure e delle funzioni: non occorre dichiararli, poiché* sono già* 
presenti nel linguaggio. 
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Un identificatore deve iniziare con una lettera (da A fino a Z e da a 
fino a z). La lettera iniziale può' essere seguita da qualunque numero di 
lettere, cifre (da 0 a 9) o di caratteri di sottolineatura. 11 
compilatore tratta allo stesso modo le lettere maiuscole e minuscole, 
quindi "A" e "a" sono equivalenti. 

Nel Pascal il carattere di sottolineatura e’ significativo, per cui i 
seguenti identificatori non sono uguali: 

FORESI 

FOR EST 

L'unica limitazione che riguarda gli identificatori e* questa: non si 
può' scegliere come identificatore una parola riservata del linguaggio 
(per una descrizione delle parole riservate si può' vedere la sezione 
sulle "Parole riservate", nel Capitolo 4; mentre per un elenco completo 
si può' vedere l'Appendice E, "Elenco delle Parole Riservate del 
Pascal"). 

Inoltre la maggior parte dei compilatori hanno alcune limitazioni 
riguardo la lunghezza assoluta di un identificatore o il numero di 
caratteri considerati significativi. Per le limitazione imposte dal 
compilatore di questo linguaggio si può' vedere l'Appendice A su 
"Caratteristiche di implementazione", nel manuale "Linguaggio Pascal 
Guida Utente". 

Per una descrizione completa degli identificatori si può' consultare il 
Capitolo 5 sugli "Identificatori". 


NOTAZIONE 


Alla base di tutti i programmi Pascal c'e' un insieme di simboli 
elementari con i quali sono create le piu' alte componenti sintattiche 
del linguaggio. 

La notazione fondamentale e' costituita dall'insieme di caretteri ASCII, 
diviso nei seguenti gruppi sintattici: 

gli identificatori sono i nomi assegnati ad istanze individuali di 
componenti del linguaggio 

i separatori sono i caratteri che delimitano numeri, parole riservate 
e identificatori adiacenti 

i simboli speciali includono la punteggiatura, gli operatori e le 
parole riservate 

alcuni caratteri non sono utilizzati dal Pascal ma sono disponibili 
per l'uso in un commento o in una stringa letterale 
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GENERALITÀ' DEL LINGUAGGIO 


Una buona conoscenza di questa notazione consente di aumentare la 
produttività 1 riducendo il numero di piccoli errori sintattici in un 
programma. Per una descrizione dettagliata della notazione Pascal si 
può 1 vedere il Capitolo 4 sulla "Notazione". 
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4. NOTAZIONE 



SOMMARIO 


Questo capitolo descrive come costruire gli identificatori, usando i 
componenti, i separatori, i simboli speciali ed i caratteri non usati nel 
linguaggio Pascal. 


INDICE 

INTRODUZIONE 

COMPONENTI DI IDENTIFICATORI 

4-1 

4-1 

LETTERE 

4-1 

CIFRE 

4-2 

CARATTERE DI SOTTOLINEATURA 

4-2 

SEPARATORI 

4-2 

SIMBOLI SPECIALI 

4-3 

SIMBOLI DI PUNTEGGIATURA 

4-3 

OPERATORI 

4-4 

PAROLE RISERVATE 

4-5 

CARATTERI NON UTILIZZATI 

4-5 

NOTE SUI CARATTERI 

4-6 




INTRODUZIONE 

Tutti i componenti del linguaggio Pascal sono costruiti tramite l'insieme 
standard di caratteri ASCII. 1 caratteri costituiscono linee, ciascuna 
delle quali e' separata da un carattere specifico del sistema operativo; 
a loro volta le linee costituiscono file. 

All' interno di una linea, i singoli caratteri o gruppi di caratteri 
rientrano in una (o piu') delle seguenti quattro grandi categorie: 


1. 

componenti di 

identificatori 

2. 

separatori 


3. 

simboli speciali 

4. 

caratteri non 

utilizzati 


COMPONENTI DI IDENTIFICATORI 

Gli identificatori sono nomi che denotano costanti, variabili, tipi di 
dati, procedure, funzioni ed altri elementi di un programma Pascal. 

L' uso di identificatori e' descritto in ampio modo nel Capitolo 5, 
"Identificatori". 

Questa sezione descrive soltanto come essi vengono costruiti. 

Gli identificatori devono iniziare con una lettera; i componenti che 
seguono possono includere lettere, cifre e caratteri di sottolineatura. 

Anche se in teoria non vi e' limite al numero di caratteri di un 
identificatore, la maggior parte delle implementazioni ne limitano in 
qualche modo la lunghezza. Per la specifica limitazione che può’ essere 
qui applicata, si può' vedere 1' Appendice A, "Caratteristiche di 
Implementazione”, nel manuale "Linguaggio Pascal Guida Utente". 


LETTERE 

Negli identificatori sono significative soltanto le lettere maiuscole da 
A a Z. 5i possono usare lettere minuscole negli identificatori in un 
programma sorgente. Tuttavia il Compilatore Pascal trasforma tutte le 
lettere minuscole degli identificatori nelle corrispondenti lettere 
maiuscole. 

Le lettere nei commenti o nelle stringhe letterali possono essere 
maiuscole o minuscole: la differenza e' pero' in tal caso significativa, 
poiché' non si verifica la precedente corrispondenza tra lettere 
minuscole e maiuscole. 




CIFRE 


Le cifre sono costituite dai numeri compresi fra zero e nove. Si possono 
trovare negli identificatori (per esempio, AS129M) oppure nelle costanti 
numeriche (per esempio 1.23 e 456). 


CARATTERE DI SOTTOLINEATURA 

11 carattere di sottolineatura (_) e' l’unico carattere non alfanumerico 
consentito negli identificatori. In Pascal esso e' significativo; lo si 
deve usare come spazio per migliorare la leggibilità'. 

Per esempio gli identificatori della colonna di destra sono piu' facili 
da leggere di quelli della colonna di sinistra. 

POWEROFTEN P0WER_0F-TEN 

MYDOGMAUDE MY DOG MAUDE 


SEPARATORI 

1 separatori dividono numeri adiacenti, parole riservate e 
identificatori, nessuno dei quali deve avere separatori compresi al loro 
interno. 

Un separatore può' essere: 
il carattere di spazio 

11 carattere di tabulazione 

il carattere di avanzamento carta 

il segnale di nuova riga 
il commento 

Nel Pascal Standard i commenti assumono una delle seguenti forme: 

{Questo e 1 un commento, racchiuso tra parentesi.} 

{•'Questa e' una forma alternativa di commento*) 

La seconda forma e' generalmente usata se le parentesi graffa non sono 
disponibili su una determinata macchina. In ciascuna di queste forme i 
commenti possono occupare piu' di una riga. 

Al livello Esteso il Pascal consente anche commenti che iniziano con un 
punto esclamativo: 
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! Il resto di questa riga e' un commento. 

Nei commenti che assumono tale forma, il carattere di nuova riga separa 
il commento. 

Nel Pascal sono consentiti commenti nidificati, ma ciascun livello deve 
avere differenti separatori. Cosi 1 , quando si inizia un commento, il 
compilatore ignora il testo successivo finche’ non trova il simbolo di 
fine commento corrispondente. Tuttavia tale nidificazione non e' 
portabile. 

Occorre usare sempre separatori tra gli identificatori e i numeri. In 
caso contrario il compilatore genera un errore o un messaggio di 
avvertimento. In pochi casi il compilatore Pascal accetta l'assenza di un 
separatore senza generare un messaggio di errore. 

Per esempio, al livello Esteso 

1OOMOD#127 

e’ accettato come 100 MOD #127, dove #127 e' un numero esadecimale. 
Tuttavia 

100MOD127 

e' assunto come 100 seguito dall'identificatore M0D127. 


SIMBOLI SPECIALI 

1 simboli speciali rientrano in tre categorie: 

1. simboli di punteggiatura 

2. operatori 

3. parole riservate 

SIMBOLI DI PUNTEGGIATURA 

Nel Pascal i simboli di punteggiatura servono a diversi scopi, compresi 
quelli descritti nella Tabella 4-1. 





Simbolo 


Le parentesi graffa separano 1 commenti 

Le parentesi quadre separano indici, insiemi e attributi; 
esse possono anche sostituire le parole riservate BEG1N 
e ENO in un programma 

Le parentesi tonde separano espressioni, e liste di para¬ 
metri e parametri di programma 

Gli apici includono stringhe letterali 

11 simbolo di due punti-uguale assegna valori alle varia¬ 
bili nelle istruzioni di assegnazione e nelle sezioni 
VALUE 

11 punto e virgola separa istruzioni e dichiarazioni 

« 

I due punti separano le variabili dai tipi, e le etichette 
dalle istruzioni 

II segno di uguale separa gli identificatori e le clausole 
di tipo in una sezione TYPE 

11 doppio punto indica un subrange 

11 punto indica sia la fine di un programma che la parte 
frazionale di un numero reale e separa i campi di un re¬ 
cord 

La freccia in alto {puntatore) indica un valore cui si fa 
riferimento 

11 segno di numero indica numeri non decimali 

11 segno di dollaro è usato come prefisso per metacomandi 


Tabella 4-1 Sommario della Punteggiatura del Pascal 
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OPERATORI 


Gli operatori sono una forma di punteggiatura che indica alcune 
operazioni da eseguire; alcuni sono alfabetici, altri sono costituiti da 
uno o due caratteri non alfanumerici. Ogni operatore costituito da piu' 
di un carattere non deve avere un separatore tra i caratteri. 

Gli operatori formati soltanto da caratteri non alfabetici sono i 
seguenti : 

+ - * / > < = <> <= > = 

Alcuni operatori (per esempio NOT e D1V) sono parole riservate, invece di 
caratteri non alfabetici. 

Per un elenco completo degli operatori non alfabetici e per una 
descrizione dell'uso degli operatori nelle espressioni, si può' vedere il 
Capitolo 13 sulle "Espressioni". 


PAROLE RISERVATE 

Le parole riservate sono una componente fissa del linguaggio Pascal. Esse 
includono, per esempio, nomi di istruzioni (per esempio BREAK) e parole 
come BEG1N e END che mettono tra- parentesi il corpo principale del 
programma. Per un elenco completo si può’ vedere 1’ Appendice E :"Elenco 
delle Parole Riservate del Pascal". 

Non si può 1 creare un identificatore uguale ad una parola riservata; 
tuttavia può’ essere dichiarato un identificatore che contiene al suo 
interno le lettere di una parola riservata. 

Vi sono diverse categorie di parole riservate: 

parole riservate per il Pascal a livello Standard 

parole riservate aggiunte per le caratteristiche del Pascal a livello 
Esteso 

parole riservate aggiunte per le caratteristiche del Pascal a livello 
di Sistema 

nomi degli attributi 
nomi delle direttive 

Per un elenco completo delle parole riservate, si può' vedere la 
Appendice E: "Elenco delle Parole Riservate del Pascal". 
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CARATTERI NON UTILIZZATI 


Pochi caratteri di stampa non sono utilizzati nel Pascal: 

% & | ~ ' \ 

Tuttavia essi possono essere usati all'interno di commenti o di stringhe 
letterali. 

Un certo numero di altri caratteri ASCII non stampabili generano errore 
se vengono usati in un file sorgente piuttosto che in un commento o in 
una stringa letterale: 

i caratteri da CHR (0) a CHR (31), tranne il carattere di tabulazione 
e quello di avanzamento carta, rispettivamente CHR (9) e CHR (12) 

i caratteri da CHR (127) a CHR (255) 

11 carattere di tabulazione, CHR (9), e' trattato come uno spazio ed e 1 
passato al file listing. 11 carattere di avanzamento carta, CHR (12), e’ 
trattato come uno spazio e da' inizio ad una nuova pagina nel file 
listing. 


NOTE SUI CARATTERI 


Questa sezione descrive le speciali proprietà' notazionali del linguaggio 
Pascal, non trattate altrove in questo capitolo. 

I caratteri all'interno di un commento o di una stringa letterale sono 
sempre consentiti e non danno luogo a particolari effetti. 

II Pascal consente le seguenti sostituzioni: 

Ciò' che manca sulla tastiera... può' essere sostituito da... 

[ (. 

] .) 

A @ or ? 

@ A or ? 

11 punto interrogativo (?) può' sostituire la freccia in alto (A), ma si 
tratta di un uso di estensione minore dello standard ISO. 

La tabella 4-2 fornisce un elenco di coppie di caratteri stampabili, che 
sono gli stessi caratteri ASCII. 
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! 

| 

i 


ASCII 

Carattere 

Sostitutivo 

CHR (94) 

A 

freccia in alto, puntatore 

CHR (95) 


sottolineatura, freccia sinistra 

CHR (35) 

? 

segno di numero, segno di sterlina 

CHR (36) 

$ 

segno di dollaro, scarabeo (cerchio 



con quattro punte) 


Tabella 4-2 Caratteri ASCII Equivalenti 
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5. IDENTIFICATORI 



SOMMARIO 


In questo capitolo e' descritto, in modo piu' dettagliato, cos'e' un 
identificatore, il suo uso e la sintassi utilizzata per dichiararlo. 
Inoltre si ha un elenco di tutti gli identificatori predichiarati, 
suddivisi in base ai tre livelli di linguaggio. 


INDICE 

COS'E 1 UN IDENTIFICATORE ? 5-1 

DICHIARAZIONE DI UN 5-2 

IDENTIFICATORE 

DOMINIO DEGLI IDENTIFICATORI 5-3 


IDENTIFICATORI PRED1CHIARAT1 
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COS’ E' UN IDENTIFICATORE ? 


Gli identificatori sono nomi che denotano costanti, variabili, tipi di 
dati, procedure, funzioni e altri elementi di un programma Pascal. Le 
procedure e le funzioni devono avere identificatori; le costanti, i tipi 
e le variabili possono avere identificatori (ed e' utile per essi 
averli). 

Alcuni identificatori sono predichiarati, altri vengono dichiarati nella 
sezione dichiarativa. 11 Pascal Standard consente l'uso di identificatori 
per i seguenti elementi del linguaggio: 

tipi 

costanti 

variabili 

procedure 

funzioni 

programmi 

campi e identificatori di campo nei record 

Anche le seguenti caratteristiche del Pascal, a livello Esteso, 
richiedono l'uso di identificatori: 

tipi super array 
moduli 
unita' 

etichette di istruzioni 

Un identificatore e' costituito da una sequenza di caratteri alfanumerici 
o di caratteri di sottolineatura, pero' e' essenziale che il primo 
carattere sia alfabetico. Negli identificatori i caratteri di 
sottolineatura sono consentiti e sono significativi a tutti i livelli del 
Pascal; inoltre e' possibile usare due caratteri di sottolineatura in una 
riga, e far terminare un identificatore con un carattere di 
sottolineatura. 

Nonostante le limitazioni prima osservate, gli identificatori possono 
essere di qualunque lunghezza, ma devono comunque essere posizionati su 
una riga. 

Risultano significativi i primi 19 caratteri di un identificatore, (in 
alcune versioni 31). 

Un identificatore che supera la lunghezza significativa genera un segnale 
di avvertimento, non un messaggio di errore; i caratteri oltre quelli 
significativi sono ignorati dal compilatore. Per la lunghezza 
significativa nelle specifiche implementazioni si può' vedere l'Appendice 
A "Caratteristiche di Implementazione", nel manuale "Linguaggio Pascal 
Guida Utente". 

Il Pascal Standard consente interi senza segno come etichette di 
istruzioni. Tali etichette hanno le stesse regole di visibilità' degli 
identificatori; a tal proposito si può' vedere "Dominio degli 
Identificatori", piu' avanti in questo capitolo. Nelle etichette gli 
zeri iniziali non sono significativi. 





11 Pascal di livello Esteso consente etichette che sono normali 
identificatori alfabetici. 

Gli identificatori usati per un programma, modulo o unita 1 , cosi' come 
gli identificatori con attributo PUBLIC o EXTERN, sono passati al linker. 
11 sistema operativo di una macchina su cui si vuol collegare (linking) o 
far eseguire un programma Pascal compilato, può' imporre ulteriori 
restrizioni alla lunghezza degli identificatori usati come simboli 
globali dal linker. 

11 listing del codice oggetto e la tabella dei simboli del debugger 
possono troncare gli identificatori di variabili e di procedure ai primi 
6 caratteri. 

La scrittura di programmi destinati ad essere usati con altri compilatori 
e sistemi operativi, richiede una ulteriore limitazione sul programma. 
In qualsiasi caso, un tale programma deve essere conforme alle 
limitazioni sugli identificatori. 

Per la portabilità', in genere, si consigliano i seguenti accorgimenti: 

rendere tutti gli identificatori univoci nei loro primi otto 
caratteri 

rendere gli identificatori esterni univoci nei loro primi sei 
caratteri 

limitare le etichette, di istruzioni a quattro cifre senza zeri 
iniziali 

L'uso di identificatori di sette o meno caratteri permette di risparmiare 
spazio durante la compilazione. 

Nota: Tutti gli identificatori usati internamente dal sistema runtime 
sono costituiti da quattro caratteri alfabetici seguiti da "QQ". Pero' 
questa forma deve essere evitata quando si creano nuovi nomi. 


DICHIARAZIONE DI UN IDENTIFICATORE 

Gli identificatori sono dichiarati e associati agli elementi del 
linguaggio nella sezione dichiarativa di un programma, modulo, 
interfaccia, implementazione, procedura o funzione. Esempi di 
identificatori, degli elementi che essi rappresentano e della sintassi 
utilizzata per dichiararli sono forniti nella seguente Tabella 5-1. 
Anche se variano i dettagli, la forma fondamentale della dichiarazione di 
un identificatore per ciascuno di questi elementi e’ simile. 
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IDENTIFICATORI 



Elemento identificatoi 

Identificatore 

j Dichiarazione 

Programma 

Z 

• 

| PROGRAM Z (INPUT, OUTPUT) 

Modulo 

XXX 

MODULE XXX 

Interfaccia 

uuu 

INTERFACE; UNIT UUU 

Implementazione 

uuu 

1MPLEMENTAT10N of UUU 

i 

Costante 

DAYS 

CONST DAYS = 365 

Tipo 

LETTERS 

TYPE LETTERS = 'A'..’Z' 

Campi di record 

X, Y, Z 

i TYPE A = RECORD 

X, Y, Z : REAL END 

Variabile 

i 

t 

J ! 

VAR J : 1NTEGER 

Etichetta 

1 

LABEL 1 

Etichetta 

HAWAII j 

LABEL HAWAII 

Procedura 

BANG 

PROCEDURE BANG 

Funzione 

F00 

FUNCT10N FOO: 1NTEGER 

Tabella 5-1 Dichiarazione di un Identificatore 


DOMINIO DEGLI IDENTIFICATORI 


Un identificatore e' definito dalla durata della procedura, funzione, 
programma, modulo, implementazione o interfaccia in cui esso e' 
dichiarato. Ciò 1 e' vero per qualsiasi procedura o funzione nidificata. 
L'associazione ad un identificatore deve essere unica all'interno del suo 
dominio. 

Una procedura o una funzione nidificata può' ridefinire un identificatore 
solo se questo non e' già' stato usato in esse. Comunque il compilatore 
non considera tale ridefinizione un errore, ma utilizza generalmente la 
prima definizione finche' non trova la seconda. Si ha un'eccezione che 
riguarda i tipi di riferimento: essa viene trattata in "Note sui Tipi di 
Riferimento", nel Capitolo 11. 







IDENTIFICATORI PRED1CHIARATI 

Un certo numero di identificatori fanno già' parte del linguaggio Pascal. 
Questa categoria include gli identificatori di tipi predichiarati, tipi 
super array, costanti, variabili di file, funzioni e procedure. Li si 
può' usare liberamente senza dichiarazione. Tuttavia essi, a differenza 
delle parole riservate, possono essere ridefiniti quando si desidera. 

Al livello Standard i seguenti identificatori sono predichiarati: 


ABS 

FALSE 

OUTPUT 

ROUND 

ARCTAN 

FLOAT 

PACK 

SIN 

BOOLEAN 

GET 

PAGE 

SQR 

CHAR 

INPUT 

PRED 

SQRT 

CHR 

1NTEGER 

PUT 

SUCC 

COS 

LN 

READ 

TEXT 

DISPOSE 

MAXINT 

READLN 

TRUE 

EOF 

NEW 

REAL 

TRUNC 

EOLN 

ODD 

RESET 

UNPACK 

EXP 

ORO 

REWR1TE 

WRITE 

WR1TELN 


Le caratteristiche al livello Esteso e di Sistema aggiungono i seguenti 
alla lista di identificatori predichiarati del Pascal. 


1. Identificatori predichiarati propri di stringa 

CONCAT 1NSERT 

COPYLIST POSITN 

COPYSTR SCANEQ 

DELETE SCANNE 

2. Identificatori predichiarati propri di livello Esteso 


ABORT 

HIBYTE 

BYWORD 

LOBYTE 

DECODE 

LOWER 

ENCODE 

RESULT 

EVAL 

SIZEOFF 


UPPER 


3. Identificatori predichiarati propri di livello di Sistema 

FILLC MOVESL 
F1LLSC MOVESR 
MOVEL RETYPE 
MOVER 
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IDENTIFICATORI 


4. Identificatori predichiarati di I/O di livello Esteso 

ASSIGN READFN 

CLOSE READSET 

DIRECT SEEK 

D1SCARD SEQUENT1AL 

FCBFQQ TERMINAL 

F1LEM0DES 

5. Identificatori predichiarati di tipo INTEGER4 

BYLONG LOWORD 

FLOATLONG MAX1NT4 

HIWORD ROUNDLONG 

1NTEGER4 TRUNCLONG 

6. Identificatori predichiarati di tipo super array 

LSTR1NG 

NULL 

5TR1NG 

7. Identificatori predichiarati di tipo WORD 

MAXWORD 

WORD 

WRD 

8. Identificatori predichiarati misti 

ADRMEM 1NTEGER2 

ADSMEM REAL4 

BYTE REAL8 _ 

1NTEGER1 51NT 










6. COSTANTI 



SOLARIO 


Questo capitolo prende in considerazione come il linguaggio Pascal tratta 
le costanti, come esse vengono dichiarate e quali sono le varie categorie 
di costanti. 
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COS' E’ UNA COSTANTE ? 


Una costante e 1 un valore conosciuto prima dell'inizio di un programma, 
che non cambia con il procedere del programma. Come esempi di costanti 
si possono considerare il numero di giorni in una settimana, la propria 
data di nascita, il nome del proprio cane o le fasi lunari. 

Ad una costante può' essere assegnato un identificatore, ma non si può 1 
variare il valore associato a quell'identificatore durante l'esecuzione 
del programma. Quando si dichiara una costante, il suo identificatore 
diventa un sinonimo della costante stessa. 

Ogni costante appartiene in modo implicito a qualche categoria di dati: 

Le costanti numeriche (descritte in "Costanti Numeriche") 
appartengono ad uno dei diversi tipi: REAL, 1NTEGER, WORD o 1NTEGER4 

Le costanti con caratteri (descritte in "Stringhe di Caratteri") sono 
stringhe di caratteri racchiuse tra apici e in Pascal sono chiamate 
"stringhe letterali" 

Disponibili al livello Esteso, le costanti strutturate (descritte 
piu' avanti in "Costanti Strutturate") comprendono array costanti, 
record e insiemi di tipi. 

Sono anche disponibili al livello Esteso le espressioni costanti 
(descritte oltre, in "Espressioni Costanti") che consentono il calcolo di 
una costante basandosi sui valori delle costanti dichiarate 
precedentemente nelle espressioni. 

Gli identificatori definiti in un tipo enumerato sono costanti di quel 
tipo e non possono essere usate direttamente con espressioni costanti 
numeriche (o stringa). Questi identificatori possono essere usati con le 
funzioni ORD, WRD o CHR (per esempio ORD (BLUE)). Al livello Esteso e’ 
consentito inoltre leggere e scrivere direttamente gli identificatori di 
costante di un tipo enumerato come stringhe di caratteri. 

TRUE e FALSE sono costanti predichiarate del tipo BOOLEAN e possono 
essere ridichiarate. N1L e' la costante di un qualunque tipo puntatore; 
pero', poiché' si tratta di una parola riservata, non può' essere 
ridefinita. Inoltre, l'insieme nullo e' una costante di un qualunque tipo 
set. 

Le etichette numeriche delle istruzioni non hanno nulla a che fare con le 
costanti numeriche; non si può' usare un identificatore di costante o 
un'espressione come un'etichetta. Internamente, tutte le costanti hanno 
una lunghezza limitata per un massimo di 255 byte. 





DICHIARAZIONE DI IDENTIFICATORI DI COSTANTE 


La dichiarazione di un identificatore di costante presenta 
l'identificatore come sinonimo della costante. Questa dichiarazione deve 
essere inserita nella sezione CONST di un'unita' compilativa, procedura o 
funzione. 

La forma generale di una dichiarazione di identificatore di costante e' 
costituita dall'identificatore seguito da un segno di uguale e dal valore 
costante. Il seguente frammento di programma comprende tre istruzioni che 
identificano costanti che iniziano dopo la parola "CONST": 

PROGRAM DEMO (INPUT, OUTPUT); 

CONST DAYSINYEAR = 365; 

DAYSINWEtK = 7; 

NAMEOFPLANET = ’EARTH ' ; 

In questo esempio i numeri 365 e 7 sono costanti numeriche; 'EARTH' e’ 
una costante letterale di tipo stringa e deve essere racchiusa fra apici. 

Quando si compila un programma, gli identificatori di costante non sono 
realmente definiti finche’ le dichiarazioni non sono elaborate. Perciò’ 
una dichiarazione di costante come la seguente non ha alcun significato: 

N = -N 

Lo standard ISO definisce un ordine preciso da seguire per le 
dichiarazioni di un programma: 

CONST MAX =10; 

TYPE NAME = PACKED ARRAY [1..MAX] 0F CHAR; 

VAR FIRST : NAME; 

11 linguaggio Pascal non rispetta rigorosamente questo ordine, e 
consente piu 1 di un’istanza per ciascun tipo di dichiarazione: 

TYPE COMPLEX = RECORD R, I : REAL END; 

CONST PII = COMPLEX (3.1416, 00); 

VAR PIX : COMPLEX; 

TYPE IVEC = ARRAY [1..3] 0F COMPLEX; 

CONST PIVEC = IVEC (PII, PII, COMPLEX (0.0, 1.0)); 
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COSTANTI NUMERICHE 

Le costanti numeriche sono numeri irriducibili come 45, 12.3 e 9E12. La 
notazione di una costante numerica indica generalmente il suo tipo: REAL, 
1NTEGER, WORD o 1NTEGER4. 

I numeri possono avere un segno iniziale piu' ( + ) o meno (-), tranne 
quando i numeri sono all'interno di espressioni. Quindi si ha che: 

ALPHA := +10 {E 1 consentito} 

ALPHA + -10 (Non e' consentito} 

Inoltre non sono consentiti spazi.vuoti all'interno delle costanti. 

II compilatore tronca qualunque numero che supera un certo numero massimo 
di caratteri, e da' un segnale di avvertimento quando ciò' si verifica. 
La lunghezza massima di una costante (19 o 31) e' uguale alla lunghezza 
massima degli identificatori. Per quanto riguarda la lunghezza massima 
delle costanti e degli identificatori nella specifica versione del 
linguaggio, si può' vedere l'Appendice A, "Caratteristiche di 
Implementazione” nel manuale "Linguaggio Pascal Guida Utente". 

La sintassi delle costanti numeriche si applica non soltanto al testo 
corrente dei programmi, ma anche al contenuto dei file testo (textfile) 
letto da un programma. 

Esempi di costanti numeriche: 


123 

+12.345 

-1.7E-10 

17E+3 

-17E3 

Le costanti numeriche 
istanze: 


0.17 
007 
-26.0 
26.0E12 
1E1 

possono trovarsi in 


qualsiasi delle seguenti 


sezioni C0NST 

espressioni 

clausole di tipo 

costanti set 

costanti strutturate 

costanti CASE di istruzioni CASE 

valori di indicatori di record varianti. 

I differenti tipi di costanti numeriche sono descritti in dettaglio nelle 

sezioni che seguono. 







COSTANTI REAL 


11 tipo di un numero e’ REAL se il numero include un punto decimale o un 
esponente. Il campo di variabilità' del valore REAL dipende dall'unita' 
numerica REAL della macchina. Generalmente il formato usato per il 
numero REAL e' quello IEEE oppure Microsoft. Questo dispone di circa 
sette cifre di precisione, con un valore massimo di circa 1.7D1411E38. 

Vi e', tuttavia, una distinzione fra i valori REAL e le costanti REAL. 11 
campo di variabilità' delle costanti REAL può' essere un sottoinsieme del 
campo di variabilità' dei valori REAL. Nel formato Microsoft le costanti 
numeriche REAL devono essere maggiori o uguali a 1.0E-38, e minori di 
1.GE+38. Nel formato IEEE le costanti numeriche REAL sono in doppia 
precisione e perciò' possono variare da circa 1E-306 a 1E306. 

Il compilatore emette un segnale di avvertimento se non vi e' almeno una 
cifra su ogni lato di un punto decimale. Un numero REAL che inizia o 
termina con un punto decimale può' essere fuorviante. Per esempio, 
poiché' la parentesi con punto sinistra sostituisce la parententesi 
quadra sinistra e la parentesi con punto destra sostituisce la parentesi 
quadra destra, la seguente costante: 

(. 1 + 2 .) 

e' interpretata come 

C1+2] 

La notazione scientifica nei numeri REAL (come in 1.23E-6 oppure 4E7) e' 
ammessa. 11 punto decimale e il segno di esponente sono opzionali quando 
e' dato un esponente. Sia la lettera maiuscola "E" che la minuscola "e" 
sono consentite nei numeri REAL. "D" e "d" servono ad indicare un 
esponente; ciò' fornisce compatibilita' con altri linguaggi. 

Quando sono usati i formati IEEE REAL4 e REAL8, tutte le costanti reali 
sono memorizzate nel formato REAL8 (doppia precisione). Se si richiede 
una costante REAL4 in singola precisione, occorre dichiarare una 
variabile REAL4 e assegnarle il valore della costante reale nella sezione 
VALUE. (Si può' anche assegnare a questa variabile 1' attributo 
READONLY). 

Le versioni del compilatore che operano su una macchina, ma generano 
codice per un'altra, possono perdere qualcosa di significativo riguardo 
le costanti REAL. 
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COSTANTI 





i 

COSTANTI 1NTEGER, WORD e 1NTEGER4 i 


Il tipo di una costante numerica non REAL può' essere 1NTEGER, WORD, o 
INTEGER4. La tabella 6-1 indica il campo di variabilità’ che le costanti 


di ciascuno 

di 

questi tipi possono assumere. 


Tipo 

r 

Campo di variabilità' dei 

Identificatore di 



valori (minimo/massimo) 

costante predichiarato 

INTEGER 


da -MAXINT a MAXINT 

| MAXINT=32767 

1 

WORD 


da 0 a MAXWORD 

1 

| MAXW0RD=65535 

INTEGER4 


da -MAXINT a MAXINT4 

i 

MAXINT=2147483647 


I 

I 


Tabella 6-1 Costanti Integer, Word e lnteger4 

MAXINT, MAXWORD e MAX1NT4 sono tutti identificatori di costanti 
predichiarati. 

Quando si dichiara un identificatore di costante numerica si verifica una 
delle tre cose: 

1. Un identificatore di costante da -MAXINT a MAXINT diventa un INTEGER. 

2. Un identificatore di costante da MAXINT+1 a MAXWORD diventa un WORD. 

3. Un identificatore di costante da -MAX1MT4 a -MAX1NT-1 oppure da 
MAXWORD+1 a MAXINT4 diventa un 1NTEGER4. 

Tuttavia qualunque costante di tipo INTEGER (comprese le espressioni e i 
valori costanti da -32767 a -1) se necessario si converte automaticamente 
al tipo WORD; se il valore INTEGER e' negativo, ad esso viene aggiunto il 
numero 65536 e il valore fondamentale di 16 bit non e' trasformato. 

Per esempio, si può' dichiarare un subrange di tipo WORD come 
URD(0)..127; il limite superiore di 127 e' automaticamente assegnato al 
tipo WORD. Non e' vero il contrario: le costanti di tipo WORD non sono 
automaticamente convertite nel tipo INTEGER. 

Le funzioni ORO e WRD trasformano inoltre il tipo di una costante 
ordinale in INTEGER o WORD. Inoltre qualunque costante INTEGER o WORD si 
converte automaticamente nel tipo 1NTEGER4 se necessario, ma non e' vero 
il contrario. 

Esempi di conversioni significative sono forniti nella Tabella 6-2. 
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Costanti 

Tipo assunto 

0 

1NTEGER può' diventare WORD o 1NTEGER4 

-32768 

5olo 1NTEGER4 

32768 

WORD può' diventare 1NTEGER4 

0..20000 

Subrange di tipo 1NTEGER 

0..50000 

Subrange di tipo WORD 

0..80000 

Non consentito: nessun subrange di tipo 
INTEGER4 

-1..50000 

Non consentito: diventa 65535..50000 . 
(cioè' -1 e' trattato come 65536) 


Tabella 6-2 Conversioni di Costanti 

Al livello Standard qualunque costante numerica (cioè 1 letterale o 
identificatore) può' avere il segno piu' (+) o meno (-). 

NUMERAZIONE NON DECIMALE 

Al livello Esteso il Pascal ammette non soltanto la notazione di numero 
decimale ma anche numeri in esadecirnale, ottale, binaria o di altra base 
(dove la base può' variare da 2 a 36). 11 segno di numero (#) si 

comporta come un separatore di radice. 

Esempi di numeri in notazione non decimale: 

16#FF02 
10#987 
8#776 
2#111100 

Gli zeri iniziali sono riconosciuti nell'ambito della radice, quindi un 
numero come 008#147 e' consentito. Nella notazione esadecirnale sono 
consentite le lettere, maiuscole o minuscole, da A ad F. Una costante non 
decimale senza la radice (come #44) e' assunta come esadecirnale. La 
notazione non decimale non richiede una costante WORD e può' essere usata 
per costanti 1NTEGER, WORD o INTEGER4. Non si deve usare la notazione non 
decimale per le costanti REAL o per le etichette di istruzioni numeriche. 
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STRINGHE DI CARATTERI 

La maggior parte dei manuali Pascal indica sequenze di caratteri 
racchiudendole tra apici come "stringhe". In questo Pascal esse sono 
chiamate "stringhe letterali" per distinguerle dalle stringhe di 
costanti, che possono essere espressioni o valori del tipo STR1NG. 

Una stringa costante contiene da 1 a 255 caratteri. Se essa e' piu' 
lunga di un carattere e' di tipo PACKED ARRAY [1 . .n] OF CHAR, noto anche 
in Pascal come il tipo STR1NG (n). Una stringa costante che contiene 
solo un carattere e' di tipo CHAR. Tuttavia, se necessario, il tipo si 
converte da CHAR a PACKED ARRAY [1..1] OF CHAR (per esempio, STR1NG (1)). 
Per esempio, una costante ('A') di tipo CHAR può' essere assegnata a una 
variabile di tipo STR1NG (1). 

Un apostrofo letterale (apice) e' rappresentato da due apici adiacenti 
(per esempio, 'DONT ’ ’T GO’). La stringa nulla (") non e’ consentita. 
Una stringa letterale deve essere posizionata su di una riga. 11 
compilatore riconosce tali stringhe se racchiuse tra doppi apici (") o 
tra accenti C) invece che fra apici, ma emette un messaggio di 
avvertimento quando li incontra. 

La caratteristica di espressione costante (descritta piu' avanti in 
"Espressioni Costanti") consente di costruire stringhe costanti con 
concatenazioni di altre stringhe costanti, compresi gli identificatori di 
stringhe costanti, la funzione CHR () e le costanti strutturate di tipo 
STRING. Ciò' e' utile per rappresentare stringhe costanti che sono piu' 
lunghe di una riga e contengono caratteri non stampabili. Per esempio: 

'TH1S 1S UNDERL1NED' * CHR(13) * STRING (DO 18 OF '_') 

La caratteristica LSTRING del Pascal aggiunge il tipo super array 
L5TR1NG. LSTRING e' simile a PACKED ARRAY [0..n] OF CHAR, ma l'elemento 
0 contiene la lunghezza della stringa, che può' variare da 0 ad un 
massimo di 255. (Per una descrizione dei tipi LSTRING si può’ vedere la 
parte su "LSTRING", nel Capitolo 9). Per ora e' sufficiente osservare 
che, se necessario, una costante di tipo STRING (n) o CHAR si converte 
automaticamente nel tipo LSTRING. 

NULL e’ una costante predichiarata per il tipo L5TRING nullo, con 
l'elemento 0 (l'unico) uguale a CHR (0). NULL non può' essere concatenato 
poiché' non e r di tipo STRING, e costituisce la sola costante di tipo 
LSTRING. 


Esempi di dichiarazioni di stringhe letterali: 


NAME = 'John Jacob 1 ; 
LETTER = 'Z'; 
QU0TED_QU0TE = ” " ; 
NULL_STR1NG = NULL; 
NULL_STRING = "; 
DOUBLÉ = "OK"; 


{stringa letterale consentita} 
{LETTER e' di tipo CHAR] 

{apici} 

{consentito} 

{non consentito} 

{genera messaggio di avvertimento} 






COSTANTI STRUTTURATE 


Il Pascal Standa'rd consente solo costanti numeriche e stringa già' 
indicate, il valore costante N1L di puntatore ed insiemi di costanti non 
appartenenti a tipi. 

Al livello Esteso del Pascal, si possono usare costanti di tipo array, 
record e set. Le costanti strutturate possono essere usate dove e 1 
consentito un valore strutturato, sia nelle espressioni che nelle sezioni 
CONST e VALUE. 

Una costante di tipo array e 1 costituita da un identificatore di tipo 
seguito da una lista di valori costanti fra parentesi separati da 
virgole. 

Esempio di costante di tipo array: 

TYPE VECT_TYPE = ARRAY [-2..2] OF 1NTEGER; 

CONST VECT = VECT_TYPE (5, 4, 3, 2, 1); 

VAR A : VECTJYPE; 

VALUE A := VECT; 


Una costante di tipo record e' costituita da un identificatore di 
tipo seguito da una lista di valori costanti fra parentesi separati 
da virgole. 

Esempio di costante di tipo record: 


TYPE REC_TYPc = RECORD 

A, 3: BYTE; 

C, D: CHAR 
END; 

CONST RECR = RECJTYPE (#20, 0, 'A', CHR (20)); 
VAR EOO : RECJTYPE; 

VALUE F00 := RECR; 


Una costante di tipo set e’ costituita da un identificatore opzionale 
di tipo set seguito dagli elementi della costante set racchiusi tra 
parentesi quadre. Gli elementi della costante set sono separati da 
virgole. Un elemento di una costante set e' una costante ordinale 
oppure due costanti ordinali separate da due punti per indicare un 
intervallo di valori costanti. 

Esempio di costante di tipo set: 

TYPE COLORJTYPE = SET OF (RED, BLUE, WH1TS, GREY, GOLD); 
CONST SETC = COLORJTYPE [RED, WHITE..GOLD]; 

VAR RAIN301-J : COLORJTYPE; 

VALUE RA IN BOLI := SETC; 


Una costante all'interno di una costante strutturata di tipo array o 
valore. 
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record deve avere un tipo da assegnare al corrispondente tipo componente. 
Per i record con varianti, il valore di un elemento costante 

corrispondente ad un indicatore di campo seleziona una variante, anche se 
l'indicatore di campo e' vuoto.. 11 numero degli elementi costanti deve 
essere uguale al numero dei componenti nella struttura, tranne per le 
costanti strutturate di tipo super array; sono consentite costanti 

strutturate nidificate. 

Una costante array o record nidificata entro un'altra costante 

strutturata deve avere sempre l'identificatore del tipo precedente. 
Perciò' una costante super array può' avere soltanto una dimensione (per 
una descrizione dei super array si può' vedere "Super array", nel 

Capitolo 9). La capacita' di rappresentazione di una costante 
strutturata deve essere da 1 a 255 byte. Se questo limite di 255 byte 
costituisce un problema, si può' dichiarare una variabile strutturata con 
l'attributo READONLY e inizializzare i suoi componenti nella sezione 
VALUE. 

Esempio di una costante strutturata complessa: 

TYPE R3 = ARRAY [1..3] OF REAL; 

TYPE SAMPLE = RECORD 1: 1NTEGER; 

A: R3; 

CASE BOOLEAN OF 

TRUE: (S: SET OF 'A’..'Z'; 

P : ASAMPLE); 

FALSE: (X: INTEGER) 

END; 

CONST SAMP_COHST= SAMPLE (27, R3 (1.4, 1.4, 1.4), 

TRUE, ['A', 'E', N1L ) ; 


Gli elementi costanti possono essere ripetuti con la frase DO <n> OF 
<costante>, quindi 1' esempio precedente può' includere "DO 3 OF 1.4" 
invece di "1.4, 1.4, 1.4". 

11 Pascal non ammette espressioni costanti di tipo set come ['_'] + 
LETTER5, o espressioni costanti di file. La costante 'ABC di tipo STRING 
(3) e’ equivalente alla costante strutturata STRING CA’, '3', ’C'). Le 
costanti srutturate LSTR1NG non sono ammesse; al loro posto si devono 
usare le corrispondenti costanti STRING. 

Le costanti strutturate (e altri valori strutturati come le variabili e i 
valori ritornati dalle funzioni) possono essere passate per riferimento 
usando parametri CONST. Per ulteriori informazioni si può' vedere nel 
Capitolo 15 la parte sui "Parametri Procedurali e Funzionali". 

Vi sono due varietà' di costanti di tipo set: una di tipo esplicito, come 
ad esempio CHAR5ET ['A'..’Z'], e una di tipo non conosciuto, come ad 
esempio [20..40]. Si possono usare in un'espressione oppure per definire 
il valore di un identificatore di costante. Le costanti set di tipo 
esplicito possono inoltre essere passate come parametri di riferimento 
(CONST). Gli insiemi di tipo non conosciuto non sono impaccati ma il 
tipo, se necessario, si converte in PACKED. Passare insiemi per 
riferimento e' generalmente piu' efficace che passarli come parametri 
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ESPRESSIONI COSTANTI 


Le espressioni costanti consentono il calcolo di costanti basate sui 
valori di costanti dichiarate precedentemente all'interno di espressioni. 
Le espressioni costanti possono anche essere all'interno di istruzioni di 
un programma. 

Esempio di dichiarazione di espressione costante: 

CONST HE1GHT_0F_LADDER = 6; 

HE1GHT_0F__MAN = 6; 

REACH = HE1GHT OF LADDER + HE1GHT OFMAN; 


Poiché' un'espressione costante può' contenere soltanto costanti 
dichiarate precedentemente, la seguente dichiarazione non e' consentita: 

CONST MAX = A + B; 

A = 10; 

B =20; 


Alcune funzioni possono essere usate all'interno di espressioni costanti. 
Per esempio: 

CONST A = LOBYTE (-23) D1V 23; 

B = H1BYTE (-A); 


La tabella 6-3 indica le funzioni e gli operatori che si possono usare 
con le costanti REAL, INTEGER, WORD e altre costanti ordinali, come le 
costanti enumerate e subrange. 
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COSTANTI 


i 

i 


Tipo di operando ) Funzioni e operatori 



REAL, INTEGER Unario piu' ( + ) 

llnario meno {-) 


INTEGER, WORD 

+ 

DIV 

OR 

HIBYTEO 


- 

M0D 

N0T 

LOBYTEO 


* 

AND 

X0R 

BYW0RDO 

Tipi ordinali 

i 

; < 

<= 

CHRO 

L0WERO 


> 

>- 

0RDO 

UPPERO 


= 

<> 

WRDO 


Boolean 

AND 


N0T 

OR 

ARRAY 

L0WERO 

UPPERO 

Qualunque tipo 

S1ZE0FO 

RETYPEO 


Tabella 6-3 Operatori e Funzioni Costanti 

Esempi di espressioni costanti: 

CONST F00 = (100 + ORDCX*)) * 8#100 + ORD('Y'); 

MAXS1ZE =80; 

X = (MAXS1ZE > 80) OR (1NTYPE = PAPERTAPE); 

{X e' una costante B00LEAN} 

Oltre agli operatori indicati nella Tabella 6-3 per le costanti 
numeriche, si può' anche usare l'operatore di concatenazione di stringa 
(*) con stringhe costanti, nel modo seguente: 

CONST A = ’abcdef'; 

M = CHR (109); {CHR e' consentito} 

AT0M = A * 'ghijkl* * M; 

{AT0M = ’abcdefghijlm’} 

Queste costanti possono occupare piu' di una riga, ma sono sempre 
limitate ad un massimo di 255 caratteri. Queste espressioni di stringhe 
costanti sono consentite ogni volta che e' consentita una stringa 
letterale, tranne che nei metacomandi. 
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7. INTRODUZIONE Al TIPI DI DATI 
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Questo capitolo contiene un'introduzione ai tipi di dati, descrive i 
gruppi di categorie cui appartengono e come essi vengono dichiarati. 
Tale argomento viene trattato in modo piu' approfondito nei capitoli 
successivi. 


INDICE 

COS 1 E 1 UN TIPO ? 7-1 

DICHIARAZIONE DEI TIPI DI DATI 7-2 


COMPATIBILITA' DI TIPO 7-3 


IDENTITÀ' DI TIPI E PARAMETRI 7-3 
DI RIFERIMENTO 


COMPATIBILITA' NEI TIPI E NELLE 7-4 
ESPRESSIONI 

COMPATIBILITA' NELL'ASSEGNAZIONE 7-5 



INTRODUZIONE Al TIPI DI DATI : 


COS 1 E' UN TIPO ? 

Un tipo e’ l'insieme di valori che una variabile o un valore possono 
avere all'interno di un programma. 1 tipi sono predichiarati o dichiarati 
esplicitamente. 

Per esempio i tipi 1NTEGER e REAL sono predichiarati, mentre il tipo 
ARRAY [1..10] OF 1NTEGER e' dichiarato esplicitamente. Ad un tipo 
dichiarato esplicitamente può' anche essere assegnato un identificatore 
di tipo, pero' per svolgere quest’ultimo compito e' richiesta una 
dichiarazione di tipo. 

Nel linguaggio Pascal i tipi rientrano in tre grandi categorie: semplici, 
strutturati e di riferimento. La tabella 7-1 fornisce una 
classificazione dei tipi in ciascuno di questi gruppi. Il resto del 
capitolo descrive i tipi in generale; dal Capitolo 8 al Capitolo 11 sono 
trattati in dettaglio i diversi gruppi. 


Categoria 

Include 

Commenti/Esempi 

Tipi semplici 

Tipi ordinali 



1NTEGER 

-MAX1NT..MAXINT 


WORD 

0..MAXWORD 


CHAR 

CHR(O)..CHR(255) 


BOOLEAN 

(FALSE,TRUE) 


tipi enumerati 

es., (RED,BLUE) 


tipi subrange 

REAL4, REALB 

es., 100..5000 


1NTEGER4 

-MAX1NT4..MAXINT4 

Tipi strutturati 

ARRAY OF tipo 

generico (OF di ogni tipo) 
SUPER ARRAY (OF tipo) 



STRING (n) 

[1..n] of CHAR 


LSTRING (n) 

RECORD 

SET OF tipo 

[0..n] of CHAR 


FILE OF 

file (binary) generici 



TEXT 

Come FILE 0F CHAR 

Tipi di 

Tipi puntatore 

es., ATREET1P 

riferimento 

ADR OF tipo 

Indirizzo relativo 


ADS OF tipo 

Indirizzo segmentato 


Tipi procedurali 
e funzionali 


Solo come tipo 
di parametro 


Tabella 7-1 Categorie di Tipi nel Pascal 






DICHIARAZIONE DEI TIPI DI DATI 

La dichiarazione di tipo associa un identificatore con un tipo di valore. 
1 tipi si dichiarano nella sezione TYPE di un programma, di una 
procedura, funzione, modulo, interfaccia o implementazione (non 
nell'intestazione di una procedura o funzione). 

Una dichiarazione di tipo e' costituita da un identificatore seguito da 
un segno di uguale e da una clausola di tipo. 

Esempi di definizioni di tipo: 

TYPE LINE = STR1NG (80); 

PAGE = RECORD 

PAGENUM : 1..499; 

LINES : ARRAY [1..60] 0F LINE; 

FACE : (LEFT, R1GHT); 

NEXTPAGE : APAGE 
END; 

Dopo la dichiarazione dei tipi di dati, si dichiarano le variabili dei 
tipi già' definiti nella sezione VAR di un programma, procedura, 
funzione, modulo o interfaccia, o nell'intestazione di una procedura o 
funzione. Nell'esempio seguente la sezione VAR dichiara le variabili dei 
tipi definiti nella sezione TYPE che precede: 

VAR PARAGRAPH : LINE; 

B00K : PAGE; 

Poiché' un identificatore di tipo non e' definito finche' la sua 
dichiarazione non e' elaborata dal compilatore, una dichiarazione 
ricorsiva di tipo come la seguente non e' consentita: 

T = ARRAY [0..9] Or T; 

Si ha un'eccezione a tale regola ed e' trattata nel Capitolo 11, "Tipi di 
Riferimento e Altri Tipi", insieme ad ulteriori dettagli sui tipi di 
riferimento. 

Una caratteristica particolare del Pascal e' la categoria chiamata "tipi 
super". Una dichiarazione di tipo super determina l'insieme dei tipi che 
gli indicatori di quel tipo super possono assumere; essa inoltre associa 
un identificatore con il tipo super. Le dichiarazioni di tipo super si 
hanno anche nella sezione TYPE. I- soli tipi super attualmente 
disponibili nel linguaggio Pascal sono i super array. 
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COMPATIBILITA' DI TIPO 


Per quanto riguarda la compatibilita' di tipo, il linguaggio Pascal segue 
lo standard ISO, con qualche regola in piu' per i tipi super array, i 
tipi LSTR1NG e le limitazioni sulle costanti (cioè' i cambiamenti forzati 
nel tipo di una costante). Le funzioni di trasferimento di tipo, che 
annullano le regole sui tipi, sono disponibili tramite alcune prestazioni 
del Pascal. 

( 

Due tipi possono essere "identici", "compatibili" o "incompatibili". 
Un'espressione può', o non può', essere "compatibile in assegnazione" con 
una variabile, con un parametro di valore o con un indice di array. 


IDENTITÀ* DI TIPI E PARAMETRI DI RIFERIMENTO 

Due tipi sono identici se hanno identici identificatori oppure se gli 
identificatori sono dichiarati equivalenti per mezzo di una definizione 
di tipo come la seguente: 

TYPE TI = T2; 

Nel Pascal i tipi "identici" sono realmente identici: nell'esempio appena 
visto non c'e' differenza tra i tipi TI e T2 . L'identità' di tipo e' 
basata sul nome dei tipi, e non sul modo in cui essi sono dichiarati o 
strutturati. Quindi, ad esempio, TI e T2 non sono identici nelle 
dichiarazioni che seguono: 

TYPE TI = ARRAY [1..10] OF CHAR; 

T2 = ARRAY [1..10] OF CHAR; 

1 parametri di riferimento attuali e formali devono appartenere allo 
stesso tipo. Se un parametro formale di riferimento e' di tipo.super 
array, il parametro attuale deve essere dello stesso tipo super array 
oppure di un tipo derivato da esso. 1 due tipi record o array devono 
essere identici per l'assegnazione. 

La sola eccezione riguarda le stringhe, dove i parametri attuali di tipo 
CHAR, STR1NG, STR1NG (n), LSTR1NG e LSTR1NG (n) sono compatibili con un 
parametro formale del tipo super array STR1NG. Inoltre il tipo di una 
costante stringa si trasforma in qualsiasi tipo LSTR1NG con un limite 
sufficientemente grande. Per esempio il tipo di 

Inoltre un parametro attuale di qualunque tipo FILE può' essere passato a 
un parametro formale di uno speciale tipo RECORD FCBFQQ. Allo stesso 
modo, un parametro attuale di tipo FCBFQQ può' essere passato ad un 
parametro formale di qualunque tipo file. Per una descrizione del tipo 
FCBFQQ si può' vedere "Livello di sistema 1/0", nel Capitolo 10. 

5TR1NG (n) e' una notazione abbreviata per: 

PACKED ARRAY [1..n] OF CHAR 

1 due tipi sono identici. Comunque, poiché' le variabili di tipo LSTR1NG 
sono trattate in modo particolare nelle assegnazioni, nei confronti, 




nelle procedure READ e WR1TE, il tipo LSTRING (n) non e' una notazione 
abbreviata per PACKED ARRAY [0..n] OF CHAR. 1 due tipi non sono identici, 
compatibili, o compatibili nell'assegnazione. Per ulteriori informazioni 
sui tipi stringa, si può' vedere "Uso dei tipi STRING e LSTRING", nel 
Capitolo 9. 

COMPATIBILITA* NEI TIPI E NELLE ESPRESSIONI 

Due tipi semplici o di riferimento sono compatibili se si verifica una 
delle seguenti condizioni: 

sono identici 

sono entrambi tipi ADR 

sono entrambi tipi ADS 

uno e' un subrange dell'altro 

sono subrange di tipi compatibili 

Due tipi strutturati sono compatibili se si verifica una delle seguenti 
condizioni : 

sono identici 

sono tipi SET di tipi base compatibili 

sono tipi derivati da STRING aventi uguale lunghezza 

sono tipi derivati da LSTRING 

Tuttavia, due tipi strutturati non sono compatibili se si verifica una 
delle seguenti condizioni: 

uno dei tipi e' un FILE o contiene un FILE 

uno dei tipi e' un super array 

un tipo e' PACKED e l'altro non lo e' 

Due valori devono essere di tipi compatibili se combinati con un 
operatore all'interno di un'espressione. {La maggior parte degli 
operatori presenta delle limitazioni aggiuntive sul tipo dei loro 
operandi. Per maggiori dettagli si può' vedere il Capitolo 13, 
"Espressioni"). 

Un'istruzione di tipo CASE con espressioni indice deve essere compatibile 
con tutti i valori delle costanti CASE. Si deve osservare che due insiemi 

non sono mai compatibili se solo uno di essi e 1 PACKED. 
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COMPATIBILITA* NELL'ASSEGNAZIONE j 

Alcuni tipi sono implicitamente compatibili. Ciò' consente di fare 
assegnazioni tra tipi superando le normali restrizioni. Per esempio, si 
può' supporre di dichiarare le seguenti variabili: 

VAR DESTINATION : TDEST; 

SOURCE : T_S0URCE ; 

SOURCE e' un'assegnazione compatibile con DESTINATION Icioe', DESTINATION 
:= SOURCE e' consentito), se una delle seguenti condizioni risulta 
verificata : 

T_S0URCE e T_DEST sono tipi identici 

! 

T^SOURCE e T DEST sono compatibili e SOURCE ha un valore compreso nel i 

campo di variabilità' del tipo subrange T DEST 

I 

! 

T_DEST e' di tipo REAL e T^SOURCE e' compatibile con il tipo INTEGER 
o 1NTEGER4 

T_DEST e' di tipo INTEGER4 e T_S0URCE e' compatibile con il tipo 
INTEGER o WORD. 

Inoltre, se T_DEST e T_S0URCE sono tipi strutturati compatibili, allora 
SOURCE e' compatibile nell'assegnazione con DESTINATION se si verifica 
una delle seguenti condizioni: 

Per i tipi SET, ogni elemento di SOURCE appartiene al tipo base di 
T_DEST 

. 

per i tipi LSTRING, UPPER (DESTINATION) >= SOURCE.LEN 

Oltre che nella stessa istruzione di assegnazione, la compatibilita' 
nell'assegnazione e' richiesta nei seguenti casi di assegnazione 
implicita: 

passaggi di parametri per valore 
procedure READ e READLN 

variabile di controllo e limiti in un'istruzione FOR 

limiti di array di un tipo super array, e indici di array 

La compatibilita 1 nell'assegnazione e' generalmente riconosciuta al 
momento della compilazione, e un'assegnazione genera semplici 
istruzioni. Tuttavia, alcune assegnazioni di subrange, set e LSTRING 
dipendono dal valore dell'espressione che deve essere assegnata, perciò' 
non si ha alcun controllo fino al tempo di esecuzione. Se viene fatto 
il controllo sul campo di variabilità ', la compatibilita 1 
nell'assegnazione e' controllata durante il runtime; altrimenti non viene 
fatto alcun controllo. 
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SOMMARIO 


1 tipi di dati si possono suddividere principalmente in semplici e 
strutturati. Questo capitolo considera i tipi di dati semplici, che a 
loro volta si distinguono in tipi ordinali, REAL e 1NTEGER4. 
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INTRODUZIONE 

La distinzione fondamentale tra tipi di dati semplici e strutturati si 
basa sul fatto che i tipi semplici non possono essere divisi in altri 
tipi, mentre i tipi strutturati (trattati nel Capitolo 9, "Array, Record 
e Set", e nel Capitolo 10, "File"), sono composti di altri tipi. 1 tipi 
di dati semplici rientrano in tre categorie: 

1. tipi ordinali 

2. REAL 

3. 1NTEGER 


TIPI SEMPLICI 
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TIPI ORDINALI 


1 tipi ordinali sono tutti finiti e numerabili, e comprendono i seguenti 
tipi semplici: 

1NTEGER 

WORD 

CHAR 

B00LEAN 

tipi enumerati 
tipi subrange 

1NTEGER4, anche se e' finito e numerabile, non e 1 un tipo ordinale. 

INTEGER 

1 valori INTEGER sono un sottoinsieme dei numeri interi e variano da 
-HAX1NT a MAX1NT compreso lo 0. MAXINT e' la costante predichiarata 32767 
(cioè 1 2A15 - 1) sulle macchine oggetto dell'attuale Pascal. (11 valore 
-32768 non e' un INTEGER valido; il compilatore lo usa per controllare 
variabili di tipo INTEGER non inizializzate e variabili di tipo subrange 
di INTEGER). 

INTEGER non e’ un subrange di INTEGER4 (già 1 trattato in "1NTEGER4", nel 
Capitolo 5). Se lo fosse, le espressioni con segno dovrebbero essere 
calcolate usando il tipo 1NTEGER4, e il risultato dovrebbe essere 
convertito in INTEGER. 

Le espressioni sono sempre calcolate usando un tipo base, non un tipo 
subrange. Le costanti di tipo INTEGER possono essere trasformate al loro 
interno, se necessario, in un tipo WORD, mentre questo non accade per le 
variabili INTEGER. In un'espressione, se necessario, i valori INTEGER si 
trasformano in REAL o INTEGER4. La funzione ORD converte un valore di un 
qualunque tipo ordinale in un tipo INTEGER. 




11 tipo predichiarato 1NTEGER2 e' identico a 1NTEGER. 


WORD 

1 tipi WORD e 1NTEGER sono simili; differiscono principalmente nel campo 
di variabilità' dei loro valori. Entrambi sono tipi ordinali. 1 valori 
WORD possono essere considerati come un gruppo di 16 bit o come un 
sottoinsieme dei numeri interi da 0 a MAXWORD (65535, cioè' 2A16 - 1). 11 
tipo WORD e’ una particolare caratteristica del Pascal, utile in diversi 
modi : 

per esprimere valori che variano da 32768 a 65535 
per operare su indirizzi di macchina 

per eseguire operazioni primitive, come quella di AND tra word e di 
shift tra word, senza usare il tipo 1NTEGER 

A differenza degli 1NTEGER, tutti i tipi WORD sono valori non negativi. 
La funzione WRD trasforma qualsiasi valore di tipo ordinale in un tipo 
WORD. Come i valori 1NTEGER, in un’espressione i valori WORD sono 
convertiti nel tipo 1NTEGER4, se necessario. 

Avendo sia un tipo 1NTEGER che un tipo WORD, si può' stabilire una 
corrispondenza tra quantità' di 16 bit in uno dei seguenti due modi: 

1. come un valore, con segno, variabile da -32767 a +32767 

2. come un valore positivo variabile da 0 a 65535 

Comunque non si devono usare contemporaneamente nella stessa espressione 
valori WORD e 1NTEGER (anche se questo genera un segnale di avvertimento 
invece che un errore). 1 valori WORD e 1NTEGER non sono neppure 
compatibili con l'assegnazione. 


CHAR 

Nel Pascal i valori CHAR sono valori ASCII di 8 bit. CHAR e' un tipo 
ordinale, e in esso sono inclusi tutti i valori di 256 byte. Inoltre e' 
consentito l'uso di SET OF CHAR. 1 confronti relazionali avvengono 
utilizzando la sequenza ASCII. 

Poiché' nello standard ISO, il carattere di cursore usato nei file TEXT 
non fa parte del tipo CHAR, alcuni sistemi operativi possono richiedere 
per il Pascal l'inclusione del cursore nel tipo CHAR (per esempio, 
carattere di ritorno carrello). 

La funzione CHR trasforma qualsiasi valore di tipo ordinale in uno di 
tipo CHAR, finche' l’ORD del valore varia da 0 a 255. Per un elenco 
completo dei caratteri ASCII si può' vedere l'Appendice D, "Codici dei 
Caratteri ASCII". 
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BOOLEAN 

BOOLEAN e' un tipo ordinale con due soli valori (predichiarati): FALSE e 
TRUE. 11 tipo BOOLEAN e' un caso speciale di tipo enumerato, dove ORO 
(FALSE) e 1 0 e ORD (TRUE) e' 1. Ciò' significa che FALSE < TRUE. 

E' possibile ridefinire gli identificatori di tipo BOOLEAN, FALSE e TRUE, 
ma il compilatore, nelle espressioni booleane e nelle istruzioni IF, 
REPEAT e WHILE, usa implicitamente il tipo precedentemente definito. 

Non esiste una funzione che trasforma un valore di tipo ordinale in uno 
di tipo BOOLEAN. Comunque si può' ottenere lo stesso risultato con la 
funzione ODO per i valori INTEGER e WORD, o con l'espressione: 

ORD (valore) < > 0 


TIPI ENUMERATI 

Un tipo enumerato definisce un insieme ordinato di valori. Tali valori 
sono costanti ed enumerati dagli identificatori che li denotano. 

Esempi di dichiarazioni di tipo enumerato: 

FLAGCOLOR = (RED, WHITE, BLUE) 

SUITS = (CLUB, DIAMOND, HEARTH, SPADE) 

DOGS = (MAUDE, EMILY, BRENDAN) 

Ogni tipo enumerato e' anche un tipo ordinale. Gli identificatori per 
tutte le costanti di tipo enumerato devono essere univoci all’interno del 
loro livello di dichiarazione. 

Al livello Esteso, le procedure READ e WRITE e le funzioni ENCODE e 
DECODE operano sui valori di tipo enumerato trattando l'effettivo 
identificatore di costante come una stringa. Ciò' significa che i valori 
enumerati possono essere letti direttamente. 

La funzione ORD, al livello Standard, può' essere usata per trasformare 
valori enumerati in valori di tipo INTEGER; la funzione WRD trasforma 
valori enumerati in valori di tipo WORD. 

La funzione RETYPE, al livello di Sistema, può' essere usata per 
trasformare valori INTEGER o WORD in valori di tipo enumerato. 

Per esempio: 

1F RETYPE (COLOR, I) = BLUE THEN WR1TELN ('TRUE BLUE') 

I valori ottenuti applicando la funzione ORD alle costanti di un tipo 
enumerato iniziano sempre con zero. Cosi' i valori ottenuti per il tipo 
FLAGCOLOR dell'esempio precedente sono i seguenti: 


ORD (RED) = 0 
ORD (WHITE) = 1 
ORD (BLUE) = 2 




I tipi enumerati sono particolarmente utili per rappresentare un insieme 
di nomi, come nomi di operazioni o di comandi. E' piu' sicuro modificare 
un programma aggiungendo un nuovo valore a un tipo enumerato piuttosto 
che usando semplicemente dei numeri, poiché' ogni array indicizzato di 
quel tipo, o set basato su quel tipo, viene automaticamente trasformato. 

Per esempio, l'input interattivo di un comando può' essere realizzato 
leggendo l'identificatore di tipo enumerato che corrisponde a un comando. 
Poiché' i tipi enumerati sono ordinati, possono anche essere utili 
confronti come RED < GREEN. A volte e' utile accedere ai valori piu' 
bassi e piu' alti del tipo enumerato; ciò' lo si può' fare usando le 
funzioni LOWER e UPPER, come nell'esempio che segue: 

VAR TINT : COLOUR; 

FOR TINT := LOWER (TINT) TO UPPER (TINT) 

DO PAINT (TINT) 


TIPI SUBRANGE 


Un tipo subrange e' un sottoinsieme di un tipo ordinale. 11 tipo da cui 
e' preso il sottoinsieme viene chiamato il tipo "ospite". Perciò' tutti 
i tipi subrange sono anche tipi ordinali. 

Si può' definire un tipo subrange specificando il limite inferiore e 
superiore del subrange (in questo ordine). 11 limite inferiore non deve 
essere maggiore del limite superiore, pero' possono essere uguali. 11 
tipo subrange e' usato frequentemente come tipo indice di un limite di 
array o come tipo base di un set. (Per una trattazione degli array e dei 
set si può' vedere "Array, Record e Set" nel Capitolo 9). 


esempi di tipi subrange insieme 

Subrange 

1NTEGER 

WORD 

CHAR 

tipo enumerato 


al loro tipo ordinale ospite: 

Ordinale ospite 

100..200 
WRD (1)..9 
'A'..’Z' 

RED..YELLOW 


Inoltre e' possibile sostituire una clausola subrange con una lista di 
valori nelle seguenti circostanze: 


costanti set 


costruttori set 


costanti di istruzioni CASE ed etichette di record con varianti (al 
livello Esteso) 

Oltre che in dichiarazioni di array e set, e' possibile usare il tipo 
subrange per assicurare che il valore di una variabile sia compreso entro 
limiti accettabili. Se il controllo del campo di variabilità' e' 
abilitato durante la compilazione, questi limiti sono controllati durante 
il runtime. 
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Per esempio, se la logica di un programma implica che una variabile ha 
sempre un valore compreso tra 100 e 999, e la variabile viene dichiarata 
di tipo subrange, allora il compilatore controlla che il valore ad essa 
assegnato non superi questo campo di variabilità'. 

Inoltre la dichiarazione di un tipo subrange può' consentire al 
compilatore di allocare meno spazio e di compiere operazioni piu' 
semplici. Per esempio, dichiarare che BOTTLES e' di tipo subrange 
1NTEGER 1..100 significa che il tipo può' essere allocato in otto bit 
invece che in sedici. 


1 seguenti tre tipi subrange sono predichiarati: 


1 . 

BYTE = WRD (0)«.255; 

{subrange 

WORD di 8 bit} 

2. 

51NT = -127..127; 

{subrange 

1NTEGER di 8 bit} 

3. 

1NTEGER1 = SINT 




Il tipo BYTE e' particolarmente utile nelle applicazioni orientate su 
macchina. Per esempio i tipi ADRMEM e ADSMEM (per dettagli vedere "Tipi 

Indirizzo" nel Capitolo 11) considerano generalmente la memoria come un 

array di byte. Tuttavia, poiché' il tipo BYTE e' realmente un subrange 
del tipo WORD, se necessario le espressioni aritmetiche con valori BYTE 
sono calcolate usando 16 bit invece di 8. 

In alcuni casi (per esempio, l'assegnazione di un'espressione BYTE ad una 
variabile BYTE quando il controllo aritmetico e 1 disabilitato), il 

compilatore può' ottimizzare operazioni aritmetiche su 16 bit in 
operazioni su 8 bit. In generale, l'uso di BYTE invece che di WORD evita 
alla memoria conversioni da BYTE a WORD nei calcoli delle espressioni. 

Al livello Esteso, i limiti del subrange possono essere espressioni 
costanti. Dato che il compilatore assume che le parentesi sinistre diano 
sempre inizio ad una dichiarazione di tipo enumerato, la prima 

espressione in una dichiarazione di subrange non deve iniziare con una 
parentesi sinistra. 

Per esempio: 

TYPE {I primi due sono consentiti.} 

FEE = (A, B, C); 

FIE = M + 2 * N .. (P-2) * N; 

{F00 non e’ valido cosi' come dichiarato.} 

F00 = (M+2) * N .. P - 2 * N; 



REAL 


1 valori REAL sono valori non ordinali, a cui e' assegnato un campo di 
variabilità' ed una precisione; il campo di variabilità' dei valori 
disponibili dipende dal sistema su cui si opera. Per informazioni piu' 
specifiche sul sistema usato si può' far riferimento al manuale 
"Linguaggio Pascal Guida Utente". 

La maggior parte delle implementazioni del Pascal usa numeri reali in 
singola precisione nel formato Microsoft oppure IEEE. Questi formati 
hanno una mantissa di 24 bit ed un esponente di 8 bit, fornendo circa 
sette cifre di precisione ed un valore massimo di 1.701411E38. Le 
costanti REAL del formato Microsoft sono limitate all'intervallo compreso 
tra 1.0E-38 e 1.0E+38. 

La versione attuale del Pascal comprende estensioni di tipi di dati 
numerici per l'elaborazione di numeri reali (e interi) di piu' alta 
precisione. Per quanto riguarda i numeri reali, questo include il 
supporto per numeri reali in singola e doppia precisione, secondo lo 
standard IEEE sul punto mobile. 

Mentre il Pascal standard fornisce un tipo REAL, il Pascal fornisce tre 
tipi reali: REAL, REAL4 e REAL8. Comunque il tipo REAL e 1 sempre 
identico a REAL4 oppure a REAL8. La scelta e' fatta con il metacomando, 
$REAL:n, dove n e' 4 oppure 8. {$REAL:8} ha lo stesso effetto di TVPE 
REAL = REAL8. 11 tipo REAL per default e' generalmente REAL4. 

Qualsiasi (o tutti) di questi numeri reali può' essere usato in un 
singolo programma. Comunque i programmi che usano REAL4 e REAL8 non sono 
trasferibili. 


Nel formato IEEE il tipo REAL4 e' di 32 bit, mentre 
64 bit. Il formato standard IEEE e' il seguente: 

il tipo REAL8 

e ' di 

REAL4 

Bit con segno, esponente binario a 8 bit 

raggiungibile di 127, mantissa di 23 bit. 

\ 

con 

massimo 

valore 

REAL8 

Bit con segno, esponente binario a 11 bit 
raggiungibile di 1023, mantissa di 52 bit. 

con 

massimo 

valore 

In entrambi i casi la mantissa ha un bit "nascosto" 

piu 

' significativo 


(sempre uno) e rappresenta un numero maggiore o uguale a 1.0 ma minore di 
2.0. Un esponente di zero da' un valore zero, e il massimo esponente e' 
un valore chiamato NaN ("not a number"). I byte sono in ordine "inverso"; 
il piu' basso byte indirizzato e' quello meno significativo della 
mantissa. 

Il campo di variabilità' numerico di REAL4 e' di appena sette cifre 
significative (24 bit), con un esponente che varia da E-38 a E+38. Il 
campo di variabilità’ numerico di REAL8 comprende oltre quindici cifre 
significative (53 bit), con un esponente che varia da E-306 a E+306. 

Il carattere di esponente può' essere "D" oppure "d", ma anche "E" oppure 
"e", quindi un numero come 12.34d56 e' consentito. Questa estensione 
minore fornisce la compatibilita' con altri linguaggi Microsoft. 
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Comunque il carattere di esponente D, oppure d, non indica doppia 
precisione (come nel FORTRAN), poiché' ciò.' comporta che i numeri con i 
caratteri di esponente E, oppure e, siano in singola precisione. 

Nel Pascal le costanti letterali di tipo REAL sono convertite prima in 
formato REAL8 e poi, se necessario, in REAL4 (per esempio, per essere 
passate come un parametro CONST o per inizializzare una variabile in una 
sezione VACUE). Se si ha la necessita' di usare costanti REAL4, esse 
devono essere dichiarate come variabili REAL4 (magari aggiungendo 
l'attributo READONLY) ed assegnare loro una costante in una sezione 
VALUE. 

1 valori REAL4 e REAL8 vengono passati alle funzioni intrinseche come 
parametri di riferimento (CONSTS), piuttosto che come parametri di 
valore. Il compilatore accetta le espressioni REAL come parametri CONSTS; 
esso valuta l'espressione, assegna il risultato ad uno stack temporaneo, 
e ne trasmette l'indirizzo, il che e' generalmente piu' efficiente che 
passare il valore stesso (specialmente nel caso REAL8). 

Le funzioni che ritornano valori REAL usano il metodo "long return", 
cioè' la routine di chiamata passa un indirizzo, addizionale, nascosto e 
relativo di uno stack temporaneo che riceve il risultato. Questo si 
applica a tutte le funzioni che ritornano valori REAL4 o REAL8, sia 
definiti dall'utente che intrinseci. Per una descrizione dei confronti 
REAL che producono un risultato non ordinato, si può' vedere "Espressioni 
Booleane" nel Capitolo 13. 

La libreria di runtime del Pascal fornisce funzioni addizionali REAL per 
supportare il FORTRAN Microsoft. Queste funzioni sono disponibili in 
Pascal, ma non sono predichiarate (per ulteriori informazioni sulle 
funzioni disponibili e su come usarle, si può' vedere il Capitolo 16 
"Procedure e Funzioni Disponibili"). 


1NTEGER4 

Come i valori INTEGER e WORD, i valori INTEGER4 sono un sottoinsieme dei 
numeri interi. 1 valori 1NTEGER4 variano da -MAXLONG a MAXLONG. MAXLONG 
e' una costante predichiarata con il valore di 2,147,483,647 (cioè' 2A31 
- 1 ). Il valore -2,147,487,648 (cioè' -2A31 ) non e' un 1NTEGER4 valido. 

A differenza di INTEGER e WORD, il tipo 1NTEGER4 non e’ considerato un 
tipo ordinale. Non vi sono subrange 1NTEGER4, e INTEGER4 non può 1 essere 
un indice di array o il tipo base di un set. Inoltre i valori 1NTEGER4 
non possono essere usati per controllare istruzioni FOR e CASE. 

1NTEGER4 e' generalmente un tipo numerico esteso, come REAL. In 
un’espressione i valori di tipo INTEGER o WORD si trasformano 
automaticamente in 1NTEGER4 se l'espressione richiede un valore 
intermedio esterno al campo di variabilità’ di INTEGER o WORD. In 
un'espressione i valori di tipo 1NTEGER4 non si trasformano in REAL; per 
fare la conversione si deve usare esplicitamente la funzione FLOATLONG. 
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SOLARIO 


Questo capitolo descrive i tipi di dati strutturati, prendendo in esame 
altri tipi di cui essi sono costituiti, come, array, record e set. 

La trattazione dei file avviene nel capitolo successivo. 
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ARRAY, RECORO E SET ; 


INTRODUZIONE 

Un tipo strutturato e‘ composto di altri tipi. 1 componenti di tipi 
strutturati sono tipi semplici oppure altri tipi strutturati. Un tipo 
strutturato e’ caratterizzato dai tipi dei suoi componenti e dal modo in 
cui e' strutturato. In Pascal un tipo strutturato può' occupare fino a 
65534 byte di memoria. 

1 tipi strutturati del Pascal sono i seguenti: 

ARRAY <campo di variabilità'> OF <tipo> 

SUPER ARRAY ccampo di variabilità’> OF <tipo> 

STR1NG (n) 

LSTR1NG (n) 

RECORD 

SET OF <tipo-base> 

FILE OF <tipo> 

Poiché' i componenti delle strutture possono essere esse stesse tipi 
strutturati, si può' avere, per esempio, un array di array, un file di 
record contenenti set, o un record che contiene un file e un altro 
record. Questo e' un esempio della flessibilità' nell'assegnare dei tipi 
ai dati: essa fornisce al Pascal gran parte della sua potenza di 
linguaggio di programmazione. 

Nel resto di questo capitolo sono trattati array, record e set. Per una 
descrizione dei file si può' vedere il Capitolo 10, "File". 


ARRAY 


Un tipo array e' una struttura costituita da un numero fisso di 
componenti, i quali sono tutti dello stesso tipo (chiamato "tipo 
componente"), 

Gli elementi dell'array sono indicati tramite indici, che sono valori del 
"tipo indice" dell' array. 11 tipo indice deve essere un tipo ordinale: 
B00LEAN, CHAR, INTEGER, WORD, subrange oppure enumerato. 

Nel Pascal gli array sono ad una dimensione, ma poiché' il tipo 
componente può’ anche essere un array, sono ammessi anche array ad n- 
dimensioni. 

Esempi di dichiarazioni di tipo per array: 

TYPE 

INT_ARRAY : ARRAY [1..10] OF INTEGER; 

ARRAY_2D : ARRAY [0..7] OF ARRAY [0..8] OF 0..9; 

MORAL RAY : ARRAY [PEOPLE] OF (G00D, EV1L); 



Nell'ultima dichiarazione PEOPLE e 1 un tipo subrange, mentre GOOD e EV1L 
sono costanti enumerate. 

Esiste una notazione abbreviata disponibile per array ad n-dimensioni f 
che rende l'istruzione seguente uguale alla seconda dell'esempio visto 
precedentemente : 

ARRAY_2D : ARRAY [0..7, 0..8] OF 0..9; 

Dopo aver dichiarato questi array, si possono assegnare ai loro 
componenti le seguenti istruzioni: 

1NT ARRAY [10] : = 1?34; 

ARR7fY_2D [0,8] := 9; 

M0RAL_RAY [Machiavelli] := EV1L; 

Tutti gli array PACKED ad n-dimensioni sono impaccati; quindi le 
istruzioni che seguono sono equivalenti: 

PACKED ARRAY [1..2, 3..4] OF REAL 

PACKED ARRAY [1..2] OF PACKED ARRAY [3..4] OF REAL 

Per una descrizione dei tipi impaccati si può' consultare il Capitolo 11, 
"Tipi di Riferimento e Altri Tipi". 


SUPER ARRAY 


Un super array e' un esempio di "tipo super" del Pascal. Un tipo super 
e' simile ad un insieme di tipi o ad una funzione che ritorna un tipo. 1 
tipi super in generale, ed i super array in particolare, costituiscono 
delle particolari caratteristiche del Pascal. 

Il tipo super array ha diversi importanti usi, e può' essere usato per 
qualunque di questi scopi: 

Per elaborare stringhe. 

Sia STRING che LSTRING sono tipi super array predichiarati. Il tipo 
LSTRING tratta stringhe di lunghezza variabile. Il tipo STRING 
tratta stringhe di lunghezza fissa e stringhe lunghe piu' di 255 
caratteri. 

Per allocare dinamicamente array di dimensioni variabili. 

In caso contrario tali array richiedono la massima allocazione di 
spazio possibile. 

Come tipo di un parametro formale in una procedura o funzione. 
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Tale dichiarazione rende la procedura o funzione utilizzabile per un i 

insieme o classe di tipi, piuttosto che soltanto per un tipo di : 

lunghezza fissa. 

Un identificatore di tipo super specifica l'insieme dei tipi ! 

rappresentati dal tipo super. Una dichiarazione successiva di tipo può 1 
dichiarare un normale identificatore di tipo come un tipo "derivato" da ' 

quella classe di tipi. Tale tipo derivato e' simile a qualunque altro 
tipo. 1 

Una dichiarazione di tipo super array e' una dichiarazione di tipo array 
avente come prefisso la parola chiave SUPER. 11 limite superiore di ogni 
array e' sostituito da un asterisco, come nell'esempio che segue-: j 

I 

TYPE VECTOR = SUPER ARRAY [1..*] OF REAL; 

I 

1 

Secondo la precedente dichiarazione di tipo, si possono dichiarare le 
seguenti variabili: 

VAR ROW : VECTOR (10); 

COL : VECTOR (30); 

ROWP: AVECTOR; 

In questo esempio, VECTOR e' un identificatore di tipo super array. 

VECTOR (10) e VECTOR (30) sono indicatori di tipo che denotano "tipi 

derivati". ROW e COL sono variabili di tipi derivati da VECTOR, ROWP e' 
un puntatore al tipo super array VECTOR. 

Anche se il concetto generale di tipi super consente altri "tipi di 
tipi", come super subrange e super set (oltre ai super array), i tipi 

super generalmente consentono soltanto un tipo array con limiti superiori 
parametrici. Un tipo super e' una classe di tipi e non un tipo specifico. 
Perciò', nella sezione VAR di un programma, procedura o funzione, non si 
possono dichiarare variabili di tipo super; esse devono essere dichiarate 
come variabili di un tipo derivato dal tipo super. 

Tuttavia in una procedura o in una funzione si può' assegnare un tipo 
super a un parametro formale di riferimento: ciò’ consente alla routine 
di operare su qualunque dei possibili tipi derivati. (In altri Pascal 
questo tipo di parametro e* chiamato "conformant array"). 

Ad un tipo puntatore di riferimento può' anche essere assegnato un tipo 
super. Ciò' permette a un puntatore di riferirsi a qualunque dei 

possibili tipi derivati. Un puntatore di riferimento a un tipo super 
consente "array dinamici". Questi array vengono allocati nell'area heap 
trasmettendo il loro limite superiore alla procedura NEW. Una descrizione 
dei tipi puntatori e dell'allocazione dinamica e' trattata nel Capitolo 
11, "Tipi di Riferimento e Altri Tipi". Per avere invece maggiori 
informazioni sulla procedura NEW si può' consultare il Capitolo 16, 
"Procedure e Funzioni Disponibili". 


11 seguente e' un esempio sull'uso della procedura NEW per l'allocazione 
dinamica : 




VAR STR_PNT: ASUPER PACKED ARRAY [1..*] OF CHAR; 
VEC PNT: ASUPER ARRAY [0..*, 0..*] OF REAL; 


NEW (STR_PNT, 12); 

NEW (VEC_PNT, 9, 99); 

Un parametro attuale, in una procedura o funzione, può’ essere di un tipo 
super piuttosto che di un tipo derivato, ma solo se il parametro e' un 
parametro di riferimento o un puntatore di riferimento. (Questi sono i 
soli generi di variabili che possono essere di un tipo super piuttosto 
che derivato). 

Esempio di super array: 

TYPE VECTOR = SUPER ARRAY [1..*] OF REAL; 

{"VECTOR" e' l'identificatore del tipo super array.} 

VAR X: VECTOR (12); Y: VECTOR (24); Z: VECTOR (36); 

{X, Y, e Z sono tipi derivati da VECTOR.} 

{Qui sotto, SUM accetta variabili di ogni tipo derivato} 

{dal tipo super VECTOR.} 

FUNCT10N SUM (VAR V: VECTOR) : REAL; 

{V e' il parametro formale di riferimento del tipo super VECTOR.} 

VAR S: REAL; 1: 1NTEGER; 

BEG1N 
S := 0; 

FOR 1 := 1 T0 UPPER (V) DO S := S + V [1]; 

SUM := S 
END; 

BjìGIN 

TOTAL := SUM (X) + SUM (Y) + SUM (Z); 

END 

Le normali regole di tipo per i componenti di un tipo super array e per 
gli indicatori di tipo che utilizzano un tipo super array, consentono 
l'assegnazione, il confronto e il passaggio come parametri dei 
componenti. 

La funzione UPPER ritorna l’attuale limite superiore di un parametro 
super array o di riferimento. 11 massimo estremo superiore di un tipo 
derivato da un tipo super array, e' limitato al valore massimo del tipo 
indice implicato dall'estremo inferiore (per esempio, MAX1NT, MAXWORD). 
Esistono due tipi super array predichiarati: STR1NG e LSTR1NG. 

11 compilatore supporta direttamente i tipi STR1NG e LSTR1NG nei seguenti 
modi : 
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assegnazione di LSTRING e 5TR1NG 

! 


confronto di LSTRING e STR1NG 
procedure di READ su LSTRING e STRING 

accesso alla lunghezza di un tipo STRING tramite la funzione UPPER 

accesso alla lunghezza massima di un tipo LSTRING tramite la funzione 
UPPER 

accesso alla lunghezza del tipo LSTRING tramite STR.LEN e STR[0]. 

Questi argomenti sono trattati nel paragrafo "Uso dei Tipi STRING e 
LSTRING" in questo capitolo. 

TIPI STRING 

I tipi STRING sono super array predichiarati di caratteri: 

TYPE STRING = SUPER PACKED ARRAY [1..*] OF CHAR; 

Una stringa letterale come ’abcdefg' e' automaticamente di tipo STRING 
(n). La dimensione dell'array 'abcdefg' e' 7; quindi la costante e' di 
tipo derivato STRING: STRING (7). 

II Pascal Standard richiama qualunque packed array di caratteri avente 
l'estremo inferiore della stringa uguale ad uno e consente poche 
operazioni speciali su questo tipo (come confronto e scrittura) che non 
si possono eseguire con altri array. 

Nel Pascal, invece, la notazione STRING (n) del super array e’ identica a 
PACKED ARRAY [1..n] OF CHAR (n può' variare da 1 a MAX1NT ). Non c'e' 
alcun valore di default per n, come in altri Pascal, poiché' STRING 
indica il tipo super array stesso e non una stringa con una lunghezza di 
default. 

L'identificatore STRING e' relativo a un super array, e quindi può' 
essere usato solo come parametro formale di riferimento o come tipo 
puntatore di riferimento. Si hanno altre limitazioni applicate ai super 
array: non e' possibile confrontare un tale parametro, un puntatore 

deferenziato oppure definirlo come un intero. 

Qualsiasi variabile (o costante) di tipo super array STRING, oppure CHAR 
o STRING (n), oppure PACKED ARRAY [1..n] OF CHAR, può' essere passata ad 
un parametro formale di riferimento del tipo super array STRING. Inoltre 
una variabile di tipo LSTRING o LSTRING (n) può' anche essere passata ad 
un parametro formale di riferimento del tipo STRING. Per una descrizione 
del tipo STRING come parametro formale di riferimento, si può' vedere il 
paragrafo "Uso dei Tipi STRING e LSTRING" in questo capitolo. 

Il Pascal Standard ammette l'assegnazione, il confronto e la scrittura 
dei tipi STRING. 11 livello Esteso consente la lettura dei tipi STRING, 
compreso il tipo super array STRING e il tipo derivato STRING (n). La 





lettura di un tipo STR1NG provoca l'input di caratteri fino a che non si 
raggiunge la fine della riga o del tipo 5TR1NG. Se si raggiunge prima la 
fine della riga, il resto del tipo STR1NG e' riempito di spazi (blank). 
Nello scrivere una stringa si scrivono tutti i suoi caratteri. 

Le normali regole di compatibilita' di tipo del Pascal sono, per i tipi 
STR1NG, flessibili. Se le loro lunghezze sono uguali, due qualsiasi 
variabili o costanti di tipo PACKED ARRAY [1. .n] OF CHAR o di tipo STR1NG 
(n) possono essere confrontate o assegnate. Tuttavia, poiché' la 
lunghezza di un tipo super array STR1NG può' variare, confronti e 
assegnazioni non sono consentiti. 

Esempio di un'assegnazione STR1NG non consentita: 

PROCEDURE CANN0T_D0 (VAR S : STRINGI ; 

VAR STR : STR1NG (10); 

BEG1N 
STR S 

{Questa assegnazione non e’ consentita perche'} 

{la lunghezza di S può' variare.} 

END; 

11 prefisso PACKED nella dichiarazione PACKED ARRAY [1..n] OF CHAR, cosi' 
come e' definito nello standard ISO, implica generalmente che un 
componente non può' essere passato come un parametro di riferimento. Nel 
Pascal questa limitazione non viene applicata. 

Per essere conformi con lo standard ISO, il passaggio di un componente 
CHAR di un tipo STR1NG come un parametro di riferimento viene definito 
come "errore non rilevato". Inoltre il tipo indice di una stringa e' 
ufficialmente un 1NTEGER, ma i valori di tipo WORD possono anche essere 
usati come indici di un tipo STR1NG. Molte applicazioni sull'elaborazione 
di stringhe possono certamente trarre vantaggio dal tipo LSTRING 
descritto in "Tipi LSTRING", in questo capitolo. 

Nel Capitolo 16, "Procedure e Funzioni Disponibili", sono descritte 
alcune procedure e funzioni intrinseche riguardanti le stringhe. Molte 
di queste procedure e funzioni si applicano ai tipi STR1NG, alcune 
soltanto ai tipi LSTRING. 


TIPI LSTRING 

In Pascal la caratteristica LSTRING consente stringhe di lunghezza 
variabile. LSTRING (n) e'un tipo predichiarato come segue: 

TYPE LSTRING = SUPER PACKED ARRAY [0..*] OF CHAR 

Tuttavia una variabile di tipo esplicito PACKED ARRAY [0..n] OF CHAR non 
e' "identica" al tipo LSTRING (n), anche se essi sono strutturalmente la 
stessa cosa. Non c'e' valore di default per n: esso varia da 0 a 255. In 
un tipo LSTRING si può' accedere ai caratteri con la solita notazione di 
array. 
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Al loro interno i tipi LSTR1NG contengono una lunghezza, (L), seguita da 
una stringa di caratteri. La lunghezza e' contenuta nell'elemento zero 
del tipo LSTR1NG e può' variare da 0 all'estremo superiore. Alla 
lunghezza di una variabile T di tipo LSTR1NG si può' accedere come a T[0] 
con il tipo CHAR, o come a T.LEN con il tipo BYTE. Le costanti stringa 
del tipo CHAR o STR1NG (n) sono automaticamente trasformate nel tipo 
LSTR1NG. 

La costante predichiarata NULL e’ la stringa vuota LSTR1NG (0) ; NULL e' 
l'unica costante di tipo LSTR1NG; non c'e' alcun modo per definire altre 
costanti LSTR1NG. Come per i tipi STR1NG, un componente CHAR di tipo 
LSTR1NG può' essere passato come parametro di riferimento, e i valori 
WORD e 1NTEGER possono essere usati per indicizzare un tipo LSTR1NG. 

Numerose operazioni funzionano su tipi LSTR1NG in modo diverso che su 
tipi STR1NG. Qualunque tipo LSTR1NG può' essere assegnato a qualunque 
altro tipo LSTR1NG, a condizione che la lunghezza corrente dell’estremo 
destro non superi la lunghezza massima dell'estremo sinistro. Allo 
stesso modo, un tipo LSTR1NG può' essere passato come parametro valore ad 
una procedura o funzione, ma in questo caso la lunghezza corrente del 
parametro attuale non deve superare la lunghezza massima specificata dal 
parametro formale. Se e' attivo il controllo sul campo di variabilità 1 , 
il compilatore controlla l'assegnazione dei tipi LSTR1NG e il passaggio 
dei parametri LSTR1NG (n). 11 numero attuale di byte assegnati o passati 
e' quello minimo degli estremi superiori dei tipi LSTR1NG. 

Nessuno dei due lati in un'assegnazione LSTR1NG può' essere un parametro 
del tipo super array LSTR1NG; entrambi devono essere tipi derivati da 
esso. 

Esempi di assegnazioni LSTR1NG: 

{Dichiarazione delle variabili} 

VAR A : LSTR1NG (19); 

B : LSTR1NG (14); 

C : LSTR1NG (6); 


{Assegnazione delle variabili} 

A := '19 caratteri stringa'; 

B := '14 caratteri ’ ; 

C := 'abbreviazione'; 

A B; 

{Questo e' consentito, poiché' la lunghezza di B} 

{e' minore della lunghezza massima di A.} 

C : = A ; 

{Questo non e' consentito, poiché' la lunghezza di A} 

{e' maggiore della lunghezza massima di C.} 

Si possono confrontare due qualsiasi tipi LSTR1NG, compresi i tipi 
LSTR1NG di tipo super array (l'unico confronto consentito di tipo super 
array). La lettura di una variabile LSTR1NG provoca l'input di caratteri 
fino alla fine della riga o del tipo LSTR1NG, e stabilisce la lunghezza 
in base al numero dei caratteri letti. La scrittura da un tipo LSTR1NG 
scrive la stringa di lunghezza corrente. 
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USO DEI TIPI STR1NG E LSTRING 


Vengono ora descritte le operazioni STR1NG e L5TR1NG direttamente 
supportate dal compilatore. Alla fine di questo argomento viene 
commentato un programma che illustra l'uso dei tipi STR1NG e LSTR1NG in 
ur\. contesto. 

Per la descrizione delle seguenti procedure e funzioni di stringa, si 
può' vedere il Capitolo 16, "Procedure e Funzioni Disponibili". 

CONCAT 1NSERT 

COPVLST P0S1TN 

COPVSTR SCANEQ 

DELETE SCANNE 

Al livello di Sistema del Pascal, le procedure F1LLC, F1LLSC, MOVEL, 
MOVESL, MOVER e MOVESR operano anche su stringhe. 

11 Pascal supporta direttamente tipi STR1NG e LSTR1NG nei seguenti modi: 


Assegnazione 

Si può' assegnare qualunque valore LSTR1NG a qualunque variabile 
LSTR1NG, pero' la lunghezza massima della variabile oggetto deve 
essere maggiore o uguale alla lunghezza corrente del valore sorgente 
e non deve essere di tipo super array LSTR1NG. Se la lunghezza 
massima dell’oggetto e' minore della lunghezza corrente del sorgente, 
viene assegnata soltanto la lunghezza dell’oggetto e, se il controllo 
di variabilità' e' attivo, si verifica un errore di runtime. Si può' 
assegnare un valore STR1NG ad una variabile STR1NG: in questo caso la 
lunghezza di entrambi gli estremi e' la stessa e nessun estremo e' di 
tipo super array STR1NG. Passare STR1NG o LSTR1NG come parametro 
valore e' molto simile ad un'operazione di assegnazione. 

Confronto 

Gli operatori LSTR1NG < <= > >= <> = utilizzano la 
lunghezza del byte per i confronti di stringa; gli operandi possono 
essere di lunghezze differenti. Per essere considerate uguali, due 
stringhe devono essere della stessa lunghezza. Se due stringhe di 
lunghezze differenti sono uguali fino alla lunghezza della piu' 
breve, quest'ultima e' considerata minore della piu' lunga. Gli 
operandi possono essere del tipo super array LSTR1NG. Per i tipi 
STR1NG sono disponibili gli stessi operatori relazionali, ma le 
lunghezze devono essere le stesse e non sono consentiti operandi del 
tipo super array STR1NG. 

READ e URITE 

READ L5TR1NG legge fino a che LSTR1NG e' riempito, o finche 1 non 
viene raggiunta la fine della riga. La lunghezza corrente e' 
stabilita in base al numero dei caratteri letti. URITE LSTRING 
utilizza la lunghezza corrente. Si può' inoltre vedere READSET 
(descritto nel Capitolo 17, "Procedure e Funzioni Orientate su 
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File"), che fa la lettura in un tipo LSTRING, se pero’ i caratteri in 
input sono in un dato SET OF CHAR. READ STRING inserisce spazi se la 
riga e’ piu' corta del tipo STR1NG. WR1TE STR1NG scrive tutti i 
caratteri nella stringa. Sia READ che WRITE ammettono tipi super 
array STR1NG e LSTR1NG, cosi' come i loro tipi derivati. 

Accesso alla lunghezza 

Si può' accedere alla lunghezza corrente di una variabile T di 
LSTR1NG con T.LEN, che e' di tipo BYTE, oppure con T[0], di tipo 
CHAR. Questa notazione può' assegnare una nuova lunghezza e 
determinare la lunghezza corrente. La funzione UPPER trova la 
lunghezza massima di un tipo LSTR1NG o la lunghezza di un tipo 
STRING; ciò' e’ particolarmente utile per trovare l'estremo superiore 
di un parametro di riferimento super array o di riferimento a un 
puntatore. 

Non si possono assegnare o confrontare tipi STR1NG e LSTRING mescolati; 
lo si può' fare solo se il tipo STR1NG e' costante. 5i possono assegnare 
tipi STR1NG a tipi LSTRING, o viceversa, tramite una delle routine di 
trasferimento o le procedure COPYSTR e COPYLST. Poiché' le costanti del 
tipo STR1NG o CHAR, se necessario, si trasformano automaticamente nel 
tipo LSTRING, le costanti LSTRING sono considerate normali costanti 
STR1NG. NULL (il tipo LSTRING di lunghezza zero) e' l'unica costante 
LSTRING esplicita. 

Nell'esempio di programma posto alla fine di questa sezione, tutti i 
parametri 5TR1NG (CONST oppure VAR) possono essere di tipo STR1NG o 
LSTRING; tutti i parametri LSTRING sono VAR L5TRING e devono contenere 
una variabile di tipo LSTRING. 

Una "trasformazione speciale" consente di passare un parametro LSTRING 
attuale ad un parametro formale di riferimento di tipo STR1NG. La 
lunghezza di un tipo STRING formale e' la lunghezza attuale del tipo 
LSTRING. Perciò', se L5TR (nell'esempio che segue) e' di tipo LSTRING (n) 
o LSTRING, esso può' essere passato ad una procedura o funzione con un 
parametro formale di riferimento di tipo STRING: 

VAR LSTR : LSTRING (10); 

PROCEDURE TIE_STRING (VAR STR : STRING); 

TIE STRING (LSTR); 


In questo caso UPPER (STR) e' equivalente a LSTR.LEN. 

Le procedure e funzioni con parametri di riferimento di tipo super STRING 
possono operare ugualmente bene su tipi STRING e LSTRING. Si dichiara un 
parametro di tipo LSTRING solo quando la lunghezza deve essere cambiata. 
Generalmente un tipo LSTRING, in una procedura o funzione, e' un 
parametro VAR o VARS, poiché* un parametro CONST o CONSTS di tipo LSTRING 






non possono essere trasformati. 


Esempio di un programma che usa tipi STR1NG e L5TR1NG: 

PROGRAM STR1NG_SAMPLE; 

PROCEDURE STR1NG_PR0C {CONST S: STRINO); BEG1N END; 

PROCEDURE LSTRING^PROC (CONST S: LSTR1NG); BEG1N END; 

VAR 

CHR1VAR: CHAR ; 

STR5VAR: STR1NG (5); 

LST5VAR: L5TR1NG (5); 

L5T9VAR: LSTR1NG (9); 

STR4VAR: PACKÉD ARRAY [1..4] OF CHAR; 

STR6VAR: PACKED ARRAY [1..6] OF CHAR; 

SEG1N 

{Si devono osservare tutti i tipi di stringhe che un parametro} 
{CONST STR1NG prende.} 

STRING_PROC ('A'); 

{La costante di tipo carattere e' corretta.} 

STR1NG_PR0C (CHR1VAR); 

{La variabile di tipo carattere e' corretta.} 

STRING_PROC ('STRING'); 

{La costante STRING e' corretta.} 

STRING_PROC (STR5VAR); 

{La variabile STRING e' corretta.) 

STRING_PROC (LST5VAR); 

{La variabile LSTR1NG e' corretta.} 
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{Tuttavia un parametro C0N5T LSTR1NG non può' prendere} 

{variabili non-LSTRING.} 

LSTR1NG_PR0C ('A'); 

{La costante di tipo carattere e' corretta.} 

LSTR1NG_PR0C (CHR1VAR); 

{La variabile di tipo carattere non e' corretta.} 

LSTR1NG_PR0C ('STR1NG'); 

{La costante STR1NG e' corretta.} 

LSTR1NG_PR0C (STR5VAR}; 

{La variabile STR1NG non e' corretta.} 

LSTR1NG_PR0C (LST5VAR); 

{La variabile LSTR1NG e' corretta. Le assegnazioni ad una} 

{variabile STR1NG sono limitate allo stesso tipo.} 

STR5VAR := 'A'; 

{La costante di carattere non e' corretta.} 

STR5VAR := CHR1VAR; 

{La variabile di carattere non e' corretta.} 

STR5VAR : = 'T1NY’; 

{La costante STR1NG e' troppo piccola.} 

5TR5VAR := 'R1GHT 1 ; 

{Entrambi i lati hanno cinque caratteri: e' corretto.} 

STR5VAR := 'LONGER'; 

{Non e' corretto; la costante STR1NG e' troppo grande.} 

STR5VAR := LST5VAR; 

{Non e' corretto; non si possono assegnare tipi LSTR1NG} 

{a tipi STR1NG.} 

COPYSTR (LST5VAR, STR5VAR); 

{COPYSTR e' una procedura intrinseca.} 

STR5VAR := STR4VAR; 

{Non e' corretto; la variabile STR1NG e' troppo piccola.} 

COPYSTR (STR4VAR, STR5VAR); 

{COPYSTR e' corretto; in STR5VAR[5] c'e' riempimento degli spazi.} 
STR5VAR STR5VAR; 

{Corretto; entrambi i lati hanno cinque caratteri.} 

STR5VAR := STR6VAR; 

{Non e’ corretto; la variabile STR1NG e' troppo grande.} 






{Tuttavia le assegnazioni ad una variabile LSTR1NG} 

{sono piu' flessibili.) 

LST5VAR := 'A'; 

{La costante di carattere e’ corretta.} 

LST5VAR := CNR1VAR; 

{La variabile di carattere non e' corretta.) 

LST5VAR := 1 T1NY'; 

{La costante STR1NG piu' piccola e' corretta.) 

L5T5VAR := 'R1GHT'; 

{La costante STR1NG della stessa lunghezza e' corretta.) 

LST5VAR := 'LONGER'; 

{Ciò' causa un errore solo durante il runtime; per ora e' corretto.) 
LST5VAR := LST9VAR; 

{Ciò 1 può' dare errore durante il runtime; per ora e' corretto.) 

LST9VAR := LST5VAR; 

{Ciò' non e' neppure controllato durante il runtime; e' sempre corretto.) 
LST5VAR := STR5VAR; 

{Non e‘ corretto; non si può’ assegnare una variabile STR1NG) 

{ad una variabile LSTR1NG.) 

COPVLST (STR5VAR, LST5VAR) 

{Questo e' il modo di copiare una variabile STRING da una LSTR1NG.) 

END. 


RECORD 


Una struttura record si comporta come un modello per dati di tipi 

differenti concettualmente correlati. Il tipo record in se stesso e' una 
struttura costituita da un numero fisso di componenti, generalmente di 
tipi differenti. 

Ogni componente di un tipo record e' detto "campo". La definizione di un 
tipo record specifica il tipo ed un identificatore per ciascun campo 
all'interno del record. Poiché' il raggio d'azione di questi 

"identificatori di campo" e' la definizione stessa di record, essi devono 

essere univoci all'interno della dichiarazione. 1 valori dei campi 

associati agli identificatori dei campi sono accessibili tramite la 
notazione di record o l'istruzione WITH. 

Per esempio si può’ dichiarare il seguente tipo record: 

TYPE LP = RECORD 

TITLE : LSTRING (100); 

ARTIST : LSTRING (100); 

PLAST1C : ARRAY [1..S0NG_NUMBER] OF S0NG_T1TLE 
END 

Si può' quindi dichiarare una variabile di tipo LP, come segue: 
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VAR BEATLESJ : LP; 

Infine, si può' accedere ad un componente del record con una notazione 
di campo o con l'istruzione W1TH (si deve osservare il punto che separa 
gli identificatori di campo) : 

BEATLESJ.T1TLE ’Meet The Beatles'; 

W1TH BEATLES 1 DO 

PLASTlCll] := '1 Wanna Hold Your Hand' 


RECORD CON VARIANTI 

Un record può' avere numerose "varianti", e in tal caso un determinato 
campo, chiamato "campo etichettato", indica quale variante usare. 11 
campo etichettato può' avere o no un identificatore e memorizzarlo nel 
record. Alcune operazioni, come le procedure NEW e DISPOSE e la funzione 
SIZEOF, possono specificare un valore di etichetta anche se questa non e' 
memorizzata come parte del record. 

Esempi di record con varianti: 

TYPE OBJECT = RECORD 

X, Y: REAL; 

CASE 5: SHAPE OF 

SQUARE: (S1ZE, ANGLE: REAL); 

CIRCLE: (D1AMETER: REAL) 

END; 

F00 = RECORD 

CASE BOOLEAN OF 

TRUE: (1, J: INTEGER); 

FALSE: (CASE COLOR OF 
BLUE: (X: REAL); 

RED: (Y: INTEGER4)) 

END; 

E' consentita soltanto una parte variante per record; essa deve essere 
l'ultimo campo del record. Tuttavia questa parte può' anche avere a sua 
volta una variante (e cosi' via, a qualunque livello). Tutti gli 
identificatori di campo in un dato record devono essere univoci, anche 
in varianti differenti. Per esempio, dopo aver dichiarato i suddetti 
tipi record, si possono creare delle variabili ed assegnare loro dei 
valori dei precedenti tipi nel seguente modo: 


9-13 



VAR 0, P : OBJECT; 
F, G : FOO; 


BEGIN 

O. DIAMETER := 12.34; 

P. S1ZE := 1.2; 

F. I := 1 ; F.J := 2; 

G. X := 123.45; 

G.Y := 678999 


END; 


{CASE di C1RCLE} 

{CASE di SQUARE} 

{CASE di TRUE} 

{CASE di FALSE e BLUE} 

{CASE di FALSE e RED; questo} 
{sostituisce il valore di G.X.} 


L’ultimo standard ISO richiede tutti i possibili valori di campo 
etichettato per scegliere alcune varianti. Perciò' non e' consentito 
includere CASE 1NTEGER OF e omettere una variante per ogni possibile 
valore 1NTEGER. Tuttavia in Pascal una tale omissione non e' rilevata 
come errore. 


Il Pascal ammette l'uso di ampie opzioni di costante CASE nella clausola 
con variante; cioè' una lista di costanti può' definire un caso. Al 
livello Esteso, i subrange e l'istruzione 0THERW1SE possono anche 
definire un caso. Quando usato, 0THERW15E si applica all'ultima variante 
della lista e non e' seguito dai due punti. Si può' anche dichiarare una 
variante vuota, come P01NT:() oppure 0THERWI5E (). Si può' anche 
dichiarare un tipo record interamente vuoto, anche se il compilatore 
emette un avvertimento ogni volta che il record viene utilizzato. 

Lo standard 150 definisce un certo numero di errori che si riferiscono ai 
record con varianti; in Pascal questi errori non sono rilevati, anche se 
e' attivo il controllo sull'etichetta. (La correttezza del valore 
dell'etichetta e' verificata tramite un controllo sull'etichetta che 
genera un codice ogni volta che viene utilizzato un campo con variante). 
Nella dichiarazione del tipo record OBJECT (nell'esempio precedente), 
ogni uso di S1ZE genera un controllo su S = SQUARE. Tuttavia, nel caso 
di FOO, gli usi di "1" non possono essere controllati poiché' il Pascal 
non alloca il campo etichettato B00LEAN. 

Inoltre lo standard ISO stabilisce che quando si verifica un "cambio di 
variante" (come quando e' assegnato un nuovo valore all'etichetta), tutti 
i campi con varianti diventano non definiti. Tuttavia il Pascal, nel caso 
analogo, non posiziona i campi ad un valore non inizializzato; quindi 
l'uso di un campo con variante che ha un valore non definito e 1 un errore 
non rilevato. 


Il Pascal non impone molte limitazioni ad una variabile di tipo record 
allocata nell'area heap con la forma lunga della procedura NEW (per 
ulteriori dettagli si può' vedere il Capitolo 16, "Procedure e Funzioni 
Disponibili"). Tuttavia il Pascal non controlla l'assegnazione a un 
simile "record corto" per verificare che solo il record corto stesso e' 
stato modificato nell’area heap. 

Un record allocato con la forma lunga di NEW può' essere rilasciato 
usando la forma breve di DISPOSE senza alcun effetto negativo (si tratta 
di un errore ISO non rilevato nel Pascal). E' anche un errore non 
rilevato nel Pascal l'uso di DISPOSE di un record passato come parametro 
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di riferimento oppure usato da un'istruzione attiva WITH. 

1 record con varianti interagiscono con le caratteristiche del Pascal in 
due modi : 

1. Non e' un metodo sicuro dichiarare una variante che contiene un file; 
qualunque cambiamento nei dati del file che usano un campo in 
un'altra variante può' portare ad errori di 1/0, anche se il file e' 
chiuso. Nell'esempio che segue, qualunque uso di R può' condurre ad 
errori in F: 

RECORD CASE B00LEAN OF 

TRUE : (F: FILE OF READ; 

FALSE : (R: ARRAY [1..100] OF REAL) 

END; 

2. Dare dati iniziali a diverse varianti che si sovrappongono in una 
variabile di una sezione VALUE, può' provocare risultati 
imprevedibili. Nell'esempio che segue, il valore iniziale di LAP e' 
incerto : 

VAR LAP : RECORD CASE BOOLEAN OF 
TRUE : (l: 1NTEGER4); 

FALSE : (R: REAL) 

END; 

VALUE LAP.l := 10; LAP.R := 1.5; 

Se si tenta di applicare una di queste due operazioni, il Pascal genera 
un messaggio di avvertimento. 


SPIAZZAMENTO ESPLICITO DI CAMPO 

Il Pascal consente di assegnare spiazzamenti (offset) espliciti di byte 
ai campi di un record. Questa caratteristica a livello di Sistema può' 
essere utile per interfacciare il software in altri linguaggi, poiché' i 
formati dei blocchi di controllo possono non essere conformi al metodo 
comune di allocazione di campo del Pascal. Tuttavia, poiché' essa 
consente di eseguire anche operazioni non sicure, come sovrapposizione di 
campi e di valori di word agli estremi dispari del byte, e 1 consigliabile 
solo se l'interfaccia risulta necessaria. 

Esempio di assegnazione di spiazzamento esplicito di byte: 




TYPE CPM = RECORD 
NDRIVE 
FILENM 
F1LEXT 
EXTENT 
CPMRES 
RECNUM 
RECOVF 
END; 


[00]: BYTE; 

[01]: STRING (8); 
[09]: STRING (3); 

[12] : BYTE; 

[13] : STRING (20); 
[33]: WORD; 

[35]: BYTE 


OVERLAP = RECORD 

BYTEAR [00]: ARRAY [0..7] OF BYTE; 
WORDAR [00]: ARRAY [0..3] OF WORD; 
B1TSAR [00]: SET OF 0..63 
END; 


Come si può' vedere nell'esempio, lo spiazzamento e' compreso tra 
parentesi quadre, come avviene per la notazione di attributo. 11 numero 
indica lo spiazzamento del byte all'inizio del campo. Alcune macchine 
oggetto non consentono di accedere ad un valore di 16 bit di un indirizzo 
dispari, ma il compilatore non lo rileva come errore. 

Se si da' un qualsiasi spiazzamento di un campo, si danno spiazzamenti a 
tutti i campi. Per ogni spiazzamento che si omette, il compilatore prende 
un valore arbitrario. Anche se il compilatore elabora una dichiarazione 
che include sia gli spiazzamenti che i campi con varianti, si devono 
usare solo gli uni o gli altri in un certo programma. 

Sebbene si possa controllare completamente la sovrapposizione di un campo 
con spiazzamenti espliciti, le varianti forniscono le forme estese delle 
procedure NEW, DISPOSE e 51ZE0F. Volendo allocare record di differenti 
lunghezze, si devono usare le procedure RETYPE e GETHQQ, invece che le 
varianti e la forma estesa di NEW. Per esempio: 

CPMPV := RETYPE (CPMP, GETHQQ (36)); 

11 compilatore supporta costanti strutturate per i tipi record con 
spiazzamenti espliciti. Al loro interno, i campi di lunghezza dispari 
maggiori di uno sono arrotondati alla lunghezza pari successiva. Per 
esempio: 


0DDR = RECORD 

FI[00] : STRING (3); 

F2[03j : CHAR 
END; 

In questo esempio il campo FI e' lungo quattro byte, quindi 
un'assegnazione a FI si sovrappone ad F2. In un tale record devono essere 
assegnati per primi tutti i campi di lunghezza dispari. 
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SET 

Un tipo set definisce il campo di variabilità 1 dei valori che un insieme 
può' assumere. Questo campo di variabilità' costituisce la "potenza 
dell'insieme" del tipo base specificato nella definizione di tipo. La 
potenza dell'insieme e' l'insieme di tutti i possibili insiemi che 
possono essere composti da un tipo base ordinale. L'insieme nullo, [], e' 
un elemento di ogni insieme. 

Supponendo di dichiarare i seguenti tipi set: 

TYPE HUES = SET OF COLOR; 

CAPS = SET OF 'A'.. 'Z ' ■ 

MATTER = SET OF (AN1MAL, VEGETABLE, MINERALI ; 

Allora si dichiarano variabili come queste: 

VAR FLAG : HUES; 

VOWELS : CAPS; 

LIVE : MATTER; 

Infine, si possono fare assegnazioni a queste variabili di tipo set: 

FLAG := [RED, WH1TE, BLUE]; 

VOWELS := ['A', 'E', '1', ’O', ’U']; 

LIVE := [AN1MAL, VEGETABLE]; 

Gli elementi di tipo set devono essere inclusi fra parentesi quadre: si 
deve notare la differenza rispetto all'uso delle parentesi tonde per 
racchiudere i tipi base enumerati in una dichiarazione di tipo set. 

Le operazioni sui tipi set sono implementate direttamente da codice 
generato su linea o dalle routine dell'unita' set. Per una descrizione 
completa sulle operazioni sui tipi set, si può' vedere il Capitolo 13, 
"Espressioni". 

11 valore ORD del tipo base può' variare da 0 a 255. Quindi SET OF CHAR 
e' consentito, mentre non lo e' SET OF 1942..1984. 

1 tipi set il cui valore ORD massimo e' 15 (cioè' i set che stanno in un 
tipo WORD) sono di solito piu' efficienti di quelli piu' grandi. 
Inoltre, se il controllo del campo di variabilità' e' abilitato, il 
passare un insieme come un parametro di valore richiede un controllo di 
compatibilita' di runtime, a meno che gli insiemi formali ed attuali 
abbiano lo stesso tipo. 

1 tipi set forniscono un modo chiaro ed efficiente di dare diverse 
qualità’ o attributi ad un oggetto. 

In un altro linguaggio e' possibile assegnare ad ogni qualità’ una 
potenza di due: 

READY = 1 
GETSET = 2 
ACT1VE = 4 
DONE = 8 



Si possono dunque assegnare le qualità' con un'istruzione come questa: 

X := READY + ACTIVE 

e poi controllarle usando OR e AND come operatori tra bit con 
un'istruzione come: 

1F ((X AND ACTIVE) < > 0) THEN WR1TELN ('GO F1SH') 

In Pascal la dichiarazione equivalente può' essere: 

QUAL1T1ES = SET 0F (READY, GETSET, ACTIVE, DONE); 

Si possono dunque assegnare le qualità’ tramite X := [GETSET, ACTIVE] e 
controllarle con le seguenti operazioni: 

IN controlla un bit 

+ posiziona un bit 

cancella un bit 

Per esempio, una costruzione appropriata può’ essere: 

1F ACTIVE IN X THEN WR1TELN ('GO F1SH') 

Si può' anche usare SET 0F 0..15 per controllare e posizionare i bit in 
un tipo WORD. Per usare i tipi WORD sia come un insieme di bit che come 
il tipo WORD, occorre assegnare due tipi alla word, con un record con 
variante, la funzione RETYPE, o con un tipo indirizzo. 

1 bit di un insieme sono assegnati a partire da quello piu' significativo 
nel byte con indirizzo inferiore. Quindi, su una macchina "byte- 
swapped", l'insieme [0, 7, 8, 15] ha il valore WORD di #80 + #01 + #8000 
+ #0100. Per maggiori dettagli si può' consultare il manuale "Linguaggio 
Pascal Guida Utente". 
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INTRODUZIONE 


Un file e' una struttura costituita da una sequenza di componenti, tutti 
dello stesso tipo. Attraverso i file il Pascal interfaccia con un dato 
sistema operativo. Quindi e' necessario capire il tipo FILE per poter 
eseguire l'input/output in/da un programma. 


DICHIARAZIONE DI FILE 


Come con qualunque altro tipo, si deve dichiarare una variabile di tipo 
file prima di poterla usare. Tuttavia il numero di componenti di un file 
non si stabilisce dichiarando un tipo FILE. 

Esempi di dichiarazioni di FILE: 

TYPE FI = FILE OF COLOR; 

F2 = FILE OF CHAR; 

F3 = TEXT; 

Un file e' semplicemente un altro tipo di dati, simile ad un array, ma 
privo di limiti ed e' possibile accedere solo ad un componente per volta. 
Tuttavia un file e' associato generalmente ad uno dei seguenti elementi: 

file su dischi 

terminali 

stampanti 

altre unita' di input e output. 

Ciò' implica le seguenti limitazioni in Pascal: un FILE OF FILE non e' 
consentito, ne' direttamente ne' indirettamente. Altre strutture, come i 
FILE OF ARRAY oppure un ARRAY OF FILE, sono consentite. 

La maggior parte delle implementazioni del Pascal collegano variabili 
file ai file di dati del sistema operativo. Questo Pascal utilizza 
sempre il sistema operativo per accedere ai file, ma non impone 
ulteriori formattazioni o strutture sui file del sistema operativo. 

11 Pascal supporta normali file allocati in modo statico, file come 
variabili locali (allocate nello stack) e file come puntatori di 
riferimento (allocati nell'area heap). Ad eccezione che per i file nei 
super array, il compilatore genera codice per inizializzare un file 
quando esso e' allocato e per chiudere (con la procedura CLOSE) un file 
quando e' deallocato. 

Questa inizializzazione avviene, nella maggior parte dei casi, 
automaticamente. Tuttavia, un file dichiarato in un modulo o in 
un'interfaccia di unita* non inizializzata, ha la sua inizializzazione 





solo se l'identificatore di modulo o di unita' viene chiamato come una 
procedura. Le dichiarazioni di file in questi casi generano il seguente 
avvertimento del compilatore: 

Contains file initialize module 

Soltanto un file in un'interfaccia di un'unita' non iniziali zzata non 
genera questo avvertimento. 

11 Pascal si avvale di file standard, INPUT e OUTPUT (trattati in "1 File 
Predichiarati INPUT e OUTPUT", in questo capitolo). Nel Pascal Standard, 
i file devono essere dati nell'intestazione del programma, e quando si 
esegue il programma, il sistema runtime sollecita per avere i nomi dei 
file. Al livello Esteso, si possono usare le procedure ASS1GN e READFN 
per dare i nomi di file esplicitamente al sistema operativo, per i file 
non compresi nell'intestazione del programma. 

I file nei record con varianti o nei tipi super array non sono 
consigliabili; se si usano, il compilatore emette un segnale di 
avvertimento. Una variabile di tipo file non può' essere assegnata, 
confrontata o passata per valore: può' solo essere dichiarata e passata 
come parametro di riferimento. 

Al livello Esteso, si può’ indicare un metodo di accesso ad un file o 
altre caratteristiche, specificando il modo del file. 11 modo e' un 
valore di tipo enumerato predichiarato FILEMODES. I modi generalmente 
disponibili includono i tre modi base di accesso: SEQUENT1AL, TERMINAL e 
DIRECT. A tutti i file, tranne INPUT e OUTPUT, sono assegnati per default 
modi di accesso SEQUENTIAL. A INPUT e OUTPUT sono assegnati per default 
modi di accesso TERMINAL. 


LA VARIABILE DI BUFFER 


Ogni file F ha una variabile di buffer FA associata ad esso. Una 
variabile di buffer e il suo file associato possono presentarsi cosi': 



File F 


Puntatore al componente corrente 



Variabile di buffer 
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Le procedure GET e PUT utilizzano questa variabile di buffer per leggere 
(READ) e scrivere (URITE) sui file. La procedura GET copia il componente 
corrente del file nella variabile di buffer; la procedura PUT fa il 
contrario, cioè’ copia il valore della variabile di buffer nel componente 
corrente. 

La variabile di buffer può' essere indicata (cioè' il suo valore può' 
essere prelevato o memorizzato) come qualunque altra variabile del 
Pascal. Ciò 1 consente esecuzioni di assegnazioni come questa: 

FA := ’z’ 

C : = FA 

Una variabile di buffer può' essere passata come parametro di riferimento 
ad una procedura o funzione, oppure utilizzata in un'istruzione UITH di 
un record. Tuttavia la variabile buffer di file non può' essere 
aggiornata correttamente se la posizione del file cambia all'interno 
della procedura, della funzione o dell'istruzione WITH. 11 compilatore 
emette un messaggio di avvertimento per segnalare questa possibilità 1 . 

Per esempio, il seguente uso di una variabile buffer di file genera un 
segnale di avvertimento durante la compilazione: 

VAR A : TEXT; 

PROCEDURE CHAR_PR0C (VAR X : CHAR); 

CHAR_PR0C (AA); 

(Qui viene emesso un segnale di avvertimento} 

In Pascal si hanno due speciali meccanismi interni: la valutazione pigra 
("lazy evaluation") e l'1/O simultaneo, i quali consentono 
rispettivamente in modo naturale l'input interattivo da terminale e l'1/O 
sovrapposto all'esecuzione del programma. La valutazione pigra e' 
applicata a tutti i file strutturati in modo ASCII ed e' necessaria per 
il normale input da terminale. L'1/0 simultaneo e' applicato a tutti i 
file strutturati in modo B1NARY ed e’ necessario per alcuni sistemi 
operativi che supportano sovrapposizioni di input e di output. 

Entrambi i meccanismi generano una chiamata di runtime che viene eseguita 
prima di qualsiasi uso della variabile buffer. Per avere ulteriori 
dettagli si possono vedere le sezioni su "Valutazione Pigra" e "1/0 
Simultaneo" nel Capitolo 17. 




STRUTTURE DI FILE 


1 file del Pascal hanno due strutture fondamentali: BINARY e ASCII. Esse 
corrispondono rispettivamente a file di dati grezzi e a file-testo 
leggibili dall'utente. 


FILE A STRUTTURA BINARY 

11 tipo di dati FILE OF <tipo> del Pascal standard corrisponde al tipo 
file di struttura BINARY del Pascal. Questi corrispondono, a loro volta, 
ai file non formattati del sistema operativo. 

Con sistemi operativi che dividono i file in record, ogni record 
costituisce un componente del tipo file (da non confondersi con il tipo 
record). Procedure primitive come GET e PUT operano sulla base di un 
record. Con sistemi operativi che non hanno proprie strutture di record, 
le procedure primitive GET e PUT trasferiscono un numero fisso di byte 
per chiamata, uguale alla lunghezza di un componente. Per un'ulteriore 
descrizione dei file BINARY si può' vedere la parte sui "Modi di Accesso 
ai File" in questo capitolo. 


FILE A STRUTTURA ASCII 

11 tipo di dati TEXT del Pascal standard corrisponde ai file di struttura 
ASCII del Pascal. Questi, a loro volta, corrispondono ai file testuali 
del sistema operativo (chiamati "file-testo" in questo manuale). 

11 tipo TEXT del Pascal e' simile ad un FILE OF CHAR, tranne per il fatto 
che i gruppi di caratteri sono organizzati in "righe" e in "pagine". Le 
procedure primitive di file, come GET e PUT, operano sempre su una base 
di caratteri. 

Tuttavia con sistemi operativi che dividono i file in record, ogni record 
e' una riga (non un carattere). Anche in sistemi operativi che non hanno 
una struttura di record propria, vi sono comunque altri linguaggi e 
prestazioni che prevedono qualche metodo per organizzare i byte in righe 
di caratteri. 

11 Pascal fornisce un certo numero di funzioni e procedure speciali che 
utilizzano questa caratteristica di divisione in righe. Poiché’ il Pascal 
non impone alcuna formattazione aggiuntiva per i file di sistema 
operativo aventi diverse modalità' di accesso (comprese SEQUENT1AL, 
TERMINAL e DIRECT), i programmi in altri linguaggi possono generare e 
utilizzare questi file. 

I file-testo (file del tipo TEXT) del Pascal sono suddivisi in righe 
tramite un "marcatore di riga", che e' un carattere non di tipo CHAR. In 
teoria un file-testo può' contenere qualunque valore di tipo CHAR. 
Tuttavia con alcuni sistemi operativi la scrittura di un carattere 
particolare (per esempio CHR (13), cioè' carattere di ritorno a capo, 
oppure CHR (10), carattere di avanzamento riga) può' concludere la riga 
corrente (il record). Questo valore di carattere in questo caso e' il 
marcatore di riga e, alla lettura, si presenta sempre come uno spazio 


10-4 


LINGUAGGIO PASCAL MANUALE GENERALE 



vuoto (blank). 


Con altri sistemi operativi può' mancare un carattere di chiusura. 
Tuttavia ogni riga e' seguita da un marcatore di riga che si legge come 
uno spazio vuoto. 

Al livello Esteso, una dichiarazione di un file-testo può' includere una 
lunghezza opzionale di riga. E' necessario stabilire la lunghezza di 
riga, che stabilisce a sua volta la lunghezza del record, soltanto nei 
file-testo che hanno DIRECT come modo di accesso. Si può’ specificare la 
lunghezza di riga anche per altri modi di accesso, ma non si ottiene 
alcun effetto. 

Si deve specificare la lunghezza di riga di un file-testo come una 
costante tra parentesi dopo la parola TEXT: 

TYPE NAMEADDR = TEXT (128); 

DEFAULTX = TEXT; 

SMALLBUF = TEXT (2); 


MODI DI ACCESSO Al FILE 


Nel Pascal i modi di accesso ai file sono SEQUENT1AL, TERMINAL e DIRECT. 
1 modi SEQUENTIAL e TERMINAL sono disponibili al livello Standard; tutti 
e tre, compreso DIRECT, sono disponibili al livello Esteso. 1 modi di 
accesso SEQUENTIAL e TERMINAL ai file di struttura ASCII possono avere 
lunghezze di record (di righe) variabili; i file con modo di accesso 
DIRECT devono avere record o righe di lunghezza fissa. 

La dichiarazione di un file in Pascal implica la sua struttura, ma non il 
suo modo di accesso. Per esempio FILE OF STR1NG (80) indica una struttura 
B1NARY; TEXT indica una struttura ASCII. Un'assegnazione come £.M0DE := 
DIRECT stabilisce il modo di accesso; ciò' funziona soltanto al livello 
Esteso e generalmente e' necessario solo per stabilire il modo di accesso 
DIRECT. 


FILE CON MODO DI ACCESSO TERMINAL 

1 file con modo di accesso TERMINAL corrispondono sempre ad un terminale 
interattivo o ad una stampante. 1 file con modo di accesso TERMINAL, come 
quelli con accesso SEQUENTIAL, sono aperti con posizionamento all'inizio 
del file per la lettura o per la scrittura. Si accede ai record uno dopo 
l'altro, finche' non si raggiunge la fine del file. 

L'operazione di input del modo di accesso TERMINAL per i terminali, 
dipende dalla struttura del file (ASCII o B1NARY). Per la struttura ASCII 
(tipo TEXT) sono lette righe intere in una sola volta. Ciò’ permette la 
normale editazione infralinea del sistema operativo, che comprende il 
carattere di ritorno indietro, l'avanzamento del cursore e il carattere 
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di annullamento. I caratteri sono ripetuti sul video del terminale mentre 
la riga e' digitata. 

Pero' se il sistema operativo non supporta Meditazione infralinea o 
ripetizione, allora e' l'interfaccia del file System del Pascal che 
fornisce queste funzionalità'. Tuttavia, poiché' si legge un'intera riga 
alla volta, non si possono leggere i caratteri mentre sono digitati, o 
chiamare diversi messaggi e risposte sulla stessa riga, ecc. Con il modo 
di accesso TERMINAL della struttura B1NARY {di solito di tipo FILE OF 
CHAR), si possono leggere i caratteri mentre sono digitati; inoltre non 
viene fatta alcuna editazione infralinea o ripetizione. Questo metodo 
consente editazione su video, selezione di menu e altra programmazione 
interattiva sulla base di una battuta piuttosto che di una riga. 

1 file con modo di accesso TERMINAL usano la valutazione pigra per 
trattare correttamente la normale lettura interattiva del terminale con 
tastiera. Per maggiori dettagli si può' vedere "Valutazione Pigra" nel 
Capitolo 17. 


FILE CON MODO DI ACCESSO SEQUENT1AL 

I file con modo di accesso SEQUENTIAL sono generalmente file su disco o 
altre unita' di accesso sequenziale. Come i file con modo di accesso 
TERMINAL, i file con acceso SEQUENTIAL sono aperti con posizionamento 
all'inizio del file per la lettura o per la scrittura, e si accede ai 
record uno dopo l’altro fino alla fine del file. I file del Pascal 
Standard hanno modo di accesso SEQUENTIAL per default (tranne INPUT e 
OUTPUT). 


FILE CON MODO Di ACCESSO DIRECT 

I file con modo di accesso DIRECT sono generalmente file su disco o altri 
dispositivi con accesso diretto. Essi, insieme alle altre capacita' di 
accesso ad un file, sono disponibili al livello Esteso del Pascal. 

I file di struttura ASCII con modo di accesso DIRECT, come i file di 
struttura B1NARY, hanno record di lunghezza fissa, dove un record può' 
essere una riga oppure un componente di file. {Qui il termine "record" 
non si riferisce al normale tipo record del Pascal, ma ad un'unita' disco 
strutturata). 1 file con accesso DIRECT sono sempre aperti sia per la 
lettura che per la scrittura, e si può' accedere direttamente ai record 
tramite il numero di record. Non c'e' il numero zero di record; i record 
iniziano con il record numero uno. 
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I FILE PREDICHIARATI INPUT E OUTPUT 


Due file, INPUT e OUTPUT, sono predichiarati in ogni programma Pascal. A 
questi file e' riservato uno speciale trattamento come parametri di 
programma, e sono normalmente richiesti come parametri nell'intestazione 
del programma: 

PROGRAM ACTION (INPUT, OUTPUT); 

Se non ci sono parametri di programma e il programma non usa i file INPUT 
e OUTPUT, l'intestazione si presenta cosi 1 : 

PROGRAM ACTION; 

Tuttavia si possono includere INPUT e OUTPUT come parametri di programma 
se usati, esplicitamente o implicitamente, nel programma stesso: 

URITE (OUTPUT, 'Prompt: ') {Uso esplicito} 

URITE (’Prompt: ') {Uso implicito} 

Questi esempi generano un segnale di avvertimento se il file di OUTPUT 
non e' dichiarato nell'intestazione del programma. 11 solo effetto dei 
file di INPUT e OUTPUT come parametri di programma, e' quello di 
annullare questo segnale. 

Anche se e' possibile ridefinire gli identificatori INPUT e OUTPUT, il 
file assunto dalle procedure e dalle funzioni (per esempio READ, EOLN) 
input e output del file-testo, costituisce una definizione predichiarata. 
Le procedure RESET (INPUT) e REURITE (OUTPUT) sono generate 
automaticamente, con INPUT e OUTPUT presenti come parametri di programma, 
oppure no; (queste procedure possono essere anche usate in modo 
esplicito). 

I file INPUT e OUTPUT hanno struttura ASCII e modo di accesso TERMINAL. 
Sono connessi fin dall'inizio al terminale e aperti automaticamente. Al 
livello Esteso del Pascal e' possibile, se si vuole, cambiare queste 
caratteristiche. 


I/O AL LIVELLO ESTESO 

Un file variabile nel Pascal e' in realtà' un record, di tipo FCBFQQ, 
chiamato blocco di controllo file (file control block). Al livello 
Esteso, qualche campo standard in questo record permette facilmente di 
trattare i modi di accesso ai file e di far notare gli errori. 

I campi addizionali e lo stesso record di tipo FCBFQQ possono essere 
usati al livello di Sistema, descritto in "1/0 al Livello di Sistema" in 
questo capitolo. Oltre che l'accesso a determinati campi FCB, l'I/Q al 
livello Esteso comprende anche le seguenti procedure: 



ASS1GN 

CLOSE 

D1SCARD 


READFN 

READSET 

SEEK 


Per una descrizione di queste procedure si può' vedere la parte su "1/0 
al Livello Esteso" nel Capitolo 17. 

Per accedere ai campi FCB si deve usare la normale sintassi di campo di 
record. Per un file F, i campi sono chiamati F.MODE, F.TRAP e F.ERRS. E' 
possibile cambiare o esaminare tali campi in qualunque momento. 

- F.MODE: F1LEM0DES 

Questo campo contiene il modo di accesso al file: SEQUENT1AL, 
TERMINAL o DIRECT. Questi valori sono costanti del tipo predichiarato 
enumerato F1LEM0DES. 11 file System usa il campo MODE solo durante le 
procedure RESET e REWR1TE. Perciò' cambiare il campo MODE di un file 
aperto non ha alcun effetto. Tranne che per 1'INPUT e 1'OUTPUT, che 
hanno modi di accesso TERMINAL, il modo di accesso ad un file e' 
SEQUENT1AL per default. 

Le procedure RESET e REWR1TE cambiano il modo di accesso da 
SEQUENT1AL a TERMINAL, se scoprono che il dispositivo che viene 
aperto e' un terminale o una stampante, e se il sistema operativo lo 
consente. Ciò’ e' utile nei programmi destinati a girare in modo 
interattivo o in modo a lotti (batch). Bisogna stabilire il modo di 
accesso DIRECT prima delle procedure RESET o REUR1TE se si vuole 
usare la procedura SEEK su un file. 

F.TRAP: B00LEAN 

Se questo campo e’ TRUE, viene attivato la ricerca di errori per il 
file F. Quindi, se si verifica un errore di input/output, il 
programma non si arresta e si può' esaminare il codice di errore. 
Inizialmente a F.TRAP e' dato il valore FALSE. Se si verifica FALSE e 
un errore di 1/0, il programma si arresta. 

- F.ERRS: WRD(0)..15 

Questo campo contiene il codice di errore per il file F. Un codice di 
errore zero significa che non vi e' alcun errore; i valori da 1 a 15 
implicano una condizione di errore. Se si prova a fare un'operazione 
su file diversa da CLOSE o DISCARO, e F.ERRS non e' zero, il 
programma si arresta immediatamente se F.TRAP e' FALSE. Comunque, se 
F.TRAP e' TRUE, l'operazione sul file viene ignorata e il programma 
continua. 

CLOSE e D1SCARD non esaminano il valore iniziale di F.ERRS, quindi 
non sono mai ignorati e non causano un arresto immediato. Nonostante 
ciò’, se gli stessi CLOSE o D1SCARD generano una condizione di 
errore, F.TRAP e’ usato per determinare se individuare l'errore o se 
arrestarsi. 

Un'operazione ignorata a causa di una condizione di errore non cambia 
il file stesso, ma può' cambiare la variabile buffer o le variabili 
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di input della procedura READ. Per un elenco completo dei messaggi di 
errore e dei segnali di avvertimento, si può' consultare l'Appendice 
H, "Messaggi di Errore". 

Anche al livello Esteso si può' stabilire la lunghezza di riga per un 
file-testo, nel modo seguente: 

TYPE 5MALLBUF = TEXT (16); 

VAR RANDOMTEXT: TEXT (132); 

La dichiarazione di lunghezza di riga si applica soltanto ai file di 
struttura ASCII con accesso DIRECT, dove la lunghezza di riga e' la 
lunghezza di record usata per leggere e scrivere. 11 fatto di stabilire 
la lunghezza di riga non ha alcun effetto su altri file ASCII. 


1/0 AL LIVELLO DI SISTEMA 


Al livello di Sistema del Pascal, si possono chiamare procedure e 
funzioni che hanno un parametro formale di riferimento di tipo FCBFQQ con 
un parametro attuale di tipo FILE OF <tipo> o TEXT, oppure il tipo 
identico FCBFQQ. 

II tipo FCBFQQ e' il tipo record fondamentale usato per implementare il 
tipo file in Pascal. L'interfaccia per il tipo FCBFQQ del sistema oggetto 
(e per qualunque altro tipo necessario), fa di solito parte del file 
System interno. Perciò' le procedure e funzioni che indicano parametri 
FCBFQQ possono essere chiamate con ogni tipo di file, comprese le 
procedure e funzioni predichiarate come CLOSE e READ. 

Una variabile di tipo FCBFQQ può' essere passata a procedure come READLN 
e WR1TELN che richiedono un file-testo. Ciò' consente, per esempio, di 
chiamare direttamente le routine di interfaccia sul sistema operativo 
oggetto, mescolando Pascal e MS-FORTRAN (che condividono l'interfaccia di 
file System ma hanno campi speciali FCBFQQ), e altre attività' speciali 
del file System. 

Tali attività' richiedono una grande conoscenza del file System. 






11. TIPI DI RIFERIMENTO E ALTRI TIPI 



SOMMARIO 


I tipi array, record e set discussi nel Capitolo 9 consentono di 
rappresentare strutture di dati la cui forma e dimensione sono 
predeterminate ed ai cui componenti si può accedere in modo standard. 

II tipo file, descritto nel Capitolo 10, è una struttura che varia in 
dimensione ma la cui forma e modo di accesso sono predeterminati. 

In questo capitolo si descrivono i tipi di riferimento, che consentono 
strutture di dati che variano in dimensione e forma ed il cui modo di 
accesso è specifico del problema implicito nella programmazione. 
Inoltre sono incluse note sui tipi PACKED e sui tipi procedurali e 
funzionali. 
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TIPI DI RIFERIMENTO 


Un riferimento ad una variabile o costante e' un modo indiretto di 
accedere ad essa. 11 tipo puntatore e 1 un tipo astratto usato per creare, 
utilizzare e cancellare variabili allocate da un'area chiamata heap. Lo 
heap e' un'area di memoria che aumenta e diminuisce in modo dinamico ed 
e’ allocata per variabili di tipo puntatore. 

11 Pascal fornisce inoltre due tipi indirizzo orientati su macchina: uno 
per gli indirizzi che si possono rappresentare in 16 bit, l’altro per gli 
indirizzi che richiedono 32 bit. 

I puntatori sono generalmente usati per eseguire operazioni su alberi, 
grafi e liste. L'uso dei puntatori e' portabile, strutturato e 
relativamente sicuro. 

1 tipi indirizzo forniscono un'interfaccia per l'hardware e per il 
sistema operativo; il loro uso e' spesso non strutturato, specifico per 
la macchina, di basso livello e non sicuro. Sia i puntatori che i tipi 
indirizzo sono descritti piu’ oltre. 


TIPI PUNTATORE 

Un tipo puntatore e' un insieme di valori che indicano le variabili di un 
tipo dato. Il tipo delle variabili puntate e' chiamato il "tipo di 
riferimento". Le variabili di riferimento sono tutte allocate in modo 
dinamico dall'area heap tramite la procedura NEW. Le variabili del Pascal 
sono di solito allocate nello stack o in locazioni fisse. 

Sui puntatori si possono eseguire soltanto queste operazioni: 

assegnazione 

controllo della loro uguaglianza e disuguaglianza tramite i due 
operatori = e < > 

passaggio come valori o come parametri di riferimento 

prelievo del contenuto puntato, mediante la freccia in alto (A) 

Ogni tipo puntatore include il valore NIL di puntatore. 1 puntatori sono 
spesso usati per creare strutture di liste di record, come mostrato 
nell'esempio che segue: 

TYPE 

TREETIP = A TREE; 

TREE = RECORD 

VAL : 1NTEGER; 

{Valore della casella TREE.} 

LEFT, R1GHT: TREETIP 

{Puntatori alle altre caselle TREETIP.} 

{Si deve osservare la definizione ricorsiva.} 


END; 


i 





A differenza della maggior parte delle dichiarazioni di tipo, la 
dichiarazione di un tipo puntatore si può' riferire a un tipo di cui e' 
esso stesso un componente. La dichiarazione si può' anche riferire ad un 
tipo dichiarato successivamente nella stessa sezione TYPE, come TREE e 
TREET1P nell'esempio precedente. 

Tale dichiarazione e' denominata una dichiarazione anteriore ("forward") 
di puntatore, e consente strutture ricorsive e mutuamente ricorsive. 
Poiché’ i puntatori sono usati cosi' spesso nelle strutture di liste, le 
dichiarazioni di puntatore anteriore si verificano frequentemente. 

11 compilatore controlla se una dichiarazione di puntatore può' essere 
ambigua. Supponendo che l'esempio precedente sia in una procedura 
nidificata in un'altra, che ha dichiarato a sua volta un tipo TREE, 
allora il tipo di riferimento di TREET1P può' essere la definizione 
esterna o quella seguente nella stessa sezione TYPE. 11 Pascal assume 
che il tipo TREE ideato sia quello successivo nella stessa sezione TYPE e 
dia questo segnale di avvertimento: 

Pointer Type Assumed Forward 

Al livello Esteso un puntatore può' avere un tipo super array come tipo 
di riferimento. Gli estremi superiori attuali dell'array sono passati 
alla procedura NEW per creare una variabile heap della corretta 
dimensione. Le dichiarazioni di puntatore anteriore del tipo super array 
non sono consentite. 

11 Pascal fa riferimento ai requisiti 150 per mantenere una stretta 
compatibilita' tra i puntatori. Per esempio non si possono dichiarare due 
puntatori con tipi differenti e poi assegnarli o confrontarli, anche se 
essi puntano lo stesso tipo fondamentale. Per esempio: 

VAR PRA : A REAL; 

PRE : A REAL; 

BEG1N PRA := PRE END; {Non e' consentito.) 

Di solito i programmi contengono soltanto una dichiarazione di tipo per 
un puntatore a un tipo dato. Nell'esempio TREET1P, il tipo di LEFT e 
R1GHT può' essere ATREE invece che TREET1P, ma allora non si possono 
assegnare variabili di tipo TREET1P a questi campi. Comunque, a volte e' 
utile assicurarsi che due classi di puntatori non siano usate insieme, 
anche se puntano lo stesso tipo. 

Per esempio si può' supporre di avere un tipo RESOURCE compreso in una 
lista e di dichiarare due tipi, OWNER e USER, del tipo ARESOURCE. 11 
compilatore prende l'assegnazione dei valori OWNER alle variabili USER, e 
viceversa, ed emette un messaggio di avvertimento. 

In teoria i puntatori non hanno niente a che fare con gli indirizzi di 
macchina attuali. Infatti un puntatore può' essere implementato in modi 
differenti su differenti macchine. Tra le altre possibilità', un 
puntatore può’ essere implementato come un normale indirizzo, come un 
indirizzo espresso in spiazzamento di segmento, come uno spiazzamento da 
una o piu' locazioni fisse, oppure come un indirizzo indiretto. 


TT-2 LINGUAGGIO PASCAL MANUALE GENERALE 




Se il controllo di inizializzazione e' attivo, un puntatore appena creato 
ha un valore non inizializzato. Se il controllo su NIL e' attivo, i 
valori del puntatore sono controllati con alcuni valori non validi. I 
valori non validi includono NIL, i valori non inizializzati, il 
riferimento ad un elemento dello heap che e 1 stato rilasciato con la 
procedura DISPOSE, o un valore non valido come riferimento per lo heap. 


TIPI INDIRIZZO 

Come, linguaggio di implementazione di sistema, il Pascal richiede un 
metodo per creare, trattare e prelevare il contenuto degli indirizzi 
attuali di macchina. Il tipo puntatore si può' applicare soltanto a 
variabili che si trovano nell'area heap. 

Esistono due generi di indirizzi: relativi e segmentati. Le parole 
chiave ADR e ADS indicano rispettivamente i tipi a indirizzo relativo e i 
tipi a indirizzo segmentato. Come mostrano i seguenti esempi, le parole 
chiave si usano sia come prefissi di clausole di tipo che come prefissi 
di operatori: 

VAR 1NT_VAR : INTEGER; 

REAL_VAR : REAL; 

A_INT : ADR OF INTEGER; 

{Dichiarazione di variabile ADR} 

AS_REAL : ADS OF REAL; 

{Dichiarazione di variabile ADS} 

BEG1N 

1NT_VAR := 1; 

{Normale variabile intera} 

REAL_VAR := 3.1415; 

{Normale variabile reale} 

A_INT := ADR 1NT_VAR; 

{ADR e' usato come operatore} 

AS_REAL := ADS REALJ/AR; 

{ADS e' usato come operatore} 

WRITELN (A_1NTA, AS_REALA) 

{Si deve notare l'uso della freccia in alto} 

{per prelevare il contenuto dei tipi indirizzo.} 

{Come output si ha 1 e 3.1415.} 

END. 

Nella tabella 11-1 sono mostrate le caratteristiche dei tipi a indirizzo 
relativo e segmentato, e come sono implementate su differenti macchine. 







Macchina 

ADR 

ADS 

8080 

16 bit assoluti 

Come per ADR 

8086 

Valore di default dello 
spiazzamento del segmento 
di dati di 16 bit 

Spiazzamento di 16 bit, 
segmento di 16 bit 

Z8000 

(non ségment.) 

Dati assoluti di 16 bit 

Come per ADR 

Z8000 

Come per ADS 

Segmento di 16 bit, 

(segmentato) 


spiazzamento di 16 bit 

. 

• 

r . 


Tabella 11-1 Indirizzi di Macchina Relativi e Segmentati 


Nel Pascal si può' dichiarare una variabile che e' un indirizzo: 

VAR X : ADR OF BYTE; 

Poi, con la seguente notazione di record, si possono assegnare valori 
numerici alla variabile attuale: 

X. R := 16#FFFF 

In un ambiente non segmentato, il .R (indirizzo relativo) e' l'unico 
campo di record disponibile per gli indirizzi ADR e ADS. 

Poiché' il Pascal consente la numerazione non decimale, si può' 
specificare il valore assegnato nella notazione esadecimale. Lo si può' 
inoltre assegnare ad un campo segmento con il tipo ADS in un ambiente 
segmentato, usando la notazione di campo .S (indirizzo di segmento). Si 
può' cosi' dichiarare una variabile di tipo ADS e poi assegnare i valori 
ai suoi due campi. 

VAR Y : ADS OF WORD; 

Y. S := 16#0001 
Y.R := 16#FFFF 

Come mostrato sopra, qualunque valore di 16 bit può' essere assegnato 
direttamente per variabili di tipo indirizzo, usando i campi .R e .S. 
Con gli operatori ADR e ADS si ottengono questi indirizzi direttamente. 
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L’esempio seguente assegna degli indirizzi alle variabili X e Y: 

VAR X : ADR OF BYTE; 

Y : ADS OF WORD; 

W : WORD; 

B : BYTE; 


X := ADR B; 

Y := ADS W; 

11 Pascal ammette questi due tipi indirizzo predichiarati: 

ADRMEM = ADR OF ARRAY [0..32766] OF BYTE; 

ADSMEM = ADS OF ARRAY [0..32766] OF BYTE; 

Quando il tipo indicato dall'indirizzo e' un array di byte, e' possibile 
indicizzare il byte. Per esempio se A e 1 di tipo ADRMEM, allora AA[15] 
e' il byte all'indirizzo A.R + 15, dove .R specifica un indirizzo attuale 
di 16 bit. 


Si possono usare i tipi indirizzo per un indirizzo costante (una forma di 
costante strutturata); si può' anche prendere l’indirizzo di una costante 
o di un'espressione. Per esempio: 

TYPE ADRUORD = ADR OF WORD; 

ADSWORD = ADS OF WORD; 

VAR W: WORD; 

R: ADRWORD; 

CONST CONADR = ADRWORD (1234); 

BEG1N 

W := CONADRA- 

{Prende la word all'indirizzo 1234} 

W := ADSWORD (0, 32)A: 

(Prende la word all'indirizzo 0:32} 

W := (ADS W).S; 

{Prende il valore del registro segmento DS} 

R ADR '123' ; 

{Prende l'indirizzo di un valore costante} 

R := ADR (W D1V 2 + 1) 

{Prende l'indirizzo del valore di un'espressione} 

END; 


Tuttavia le costanti o le espressioni che producono indirizzi 
generalmente non possono essere usate come oggetto di un'assegnazione (o 
come un parametro di riferimento o come un record W1TH): 


CONST ADSCON = ADSWORD (256, 64); 
FUNCT10N S0ME_ADDRES5: ADSWORD; 
BEGIN 

ADSWORD (0, 32)A := W; 

ADSCONA := 12; 

SOME_ADDRESSA := 100 
END; 


{corretto} 

(corretto) 

{non consentito} 
{non consentito} 
{non consentito} 



PARAMETRI SEGMENTO PER I TIPI INDIRIZZO 


VARS e C0NST5 sono due parole chiave disponibili, come VAR e CONST, come 
prefissi di parametro per passare gli indirizzi segmentati di una 
variabile. Se P e' di tipo ADS F00, allora PA può' essere passato ad un 
parametro formale VARS, come VARS X: F00, ma non può' essere passato ad 
un parametro formale VAR. 

In un ambiente di macchina segmentato, si assume per default un segmento 
di dati, e in tal caso un parametro VAR e' passato per de fault come 
spiazzamento di segmento di dati per default di una variabile. Un 
parametro VARS e' passato sia come valore del segmento che come valore 
dello spiazzamento. 

Nell'ambiente 8086, sia i parametri VARS che le variabili ADS hanno il 
valore (.R) dello spiazzamento nel tipo WORD con l'indirizzo piu' basso e 
il valore (.S) di segmento nell'indirizzo piu' due. 

Nell'ambiente segmentato Z8000, il valore (.S) di segmento e' 
nell'indirizzo piu' basso e il valore (.R) di spiazzamento e' 
nell'indirizzo piu' due. Inoltre il tipo ADR e' identico al tipo ADS. 

Nell'ambiente non segmentato (per esempio, 8080), VAR e CONST sono 
identiche a VARS e CONSTS. Poiché' in un ambiente non segmentato ADS e 
ADR sono identiche, il tipo ADS e' utile in situazioni in cui l'ambiente 
può' cambiare. Per esempio nel Pascal alcune chiamate primitive di file 
System sono dichiarate con parametri ADS. 

In dichiarazioni di tipo puntatore, la freccia in alto (A) fa da prefisso 
al tipo indicato; nelle istruzioni di programma essa preleva il contenuto 
di un puntatore, in modo che si possano fare assegnazioni o operazioni 
sul valore puntato. La freccia in alto prende anche il contenuto dei 
tipi ADR e ADS nelle istruzioni di programma. 

La selezione dei componenti con la freccia in alto (A) e' eseguita prima 
degli operatori unari ADR o ADS. Poiché' il selettore di freccia in alto 
(A) può* apparire dopo qualunque variabile indirizzo per produrre una 
nuova variabile, vi può' essere per esempio un parametro di riferimento 
nell'oggetto di un'assegnazione, cosi' come nelle espressioni. Poiché' 
AD5 e ADR sono prefissi di operatori, essi sono usati soltanto nelle 
espressioni, dove si applicano solo ad una variabile, costante o 
espressione. 

11 Pascal e' un linguaggio fortemente tipizzato; due variabili puntatore 
sono compatibili solo se hanno lo stesso tipo (non e' sufficiente che 
essi puntano allo stesso tipo). Tuttavia due tipi indirizzo sono 
considerati dello stesso tipo se sono sia tipi ADR che tipi ADS. Ciò' 
permette di assegnare un ADR 0F WORD a un ADR 0F STR1NG (200). Tale 
assegnazione facilita la cancellazione di una parte della memoria, 
tramite l'assegnazione di una variabile di tipo STR1NG (200) ai 200 byte 
che aprono l'indirizzo di una variabile WORD. 

Se PI e' di tipo ADR 0F STR1NG (200) e P2 e' di qualsiasi tipo ADR 0F, 
l'assegnazione PIA := P2A genera codice veloce con nessun controllo del 
campo di variabilità'. Anche se questa capacita' non e' sicura, qualche 
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volta i sistemi operativi e altri elementi di software la richiedono. 

ADR e ADS non sono compatibili tra di loro, ma la notazione .R può' 
superare, o almeno ridurre, il problema. 


USO DEI TIPI INDIRIZZO 

Entro certi limiti, i due tipi indirizzo si possono combinare e 
mescolare. L'esempio seguente illustra le regole che si applicano in un 
ambiente segmentato: 

VAR 

P: ADS OF DATA; 

{P e' l'indirizzo segmentato del tipo DATA.} 

Q: ADR OF DATA; 

{Q e' l'indirizzo relativo del tipo DATA.} 

X: DATA; 

{X e' una variabile del tipo DATA.} 

BEG1N 

P := ADS X; 

{Assegna l'indirizzo di X a P.} 

X := PA; 

{Assegna a X il valore puntato da P.} 

P := ADS PA; 

{Assegna a P l'indirizzo del valore il cui indirizzo e'} 

{puntato da P. P non viene cambiato da questa assegnazione.} 

Q := ADR X; 

{Assegna l'indirizzo relativo di X a Q.} 

Q.R := (ADR X). R; 

{Assegna l'indirizzo relativo di X a Q, usando il tipo WORD.} 

P := ADS QA; 

{Assegna l'indirizzo della variabile in Q a P.} 

{Si può' sempre applicare ADS a ADRA.} 

Q := ADR PA; 

{Non consentito; non si può 1 applicare ADR ad ADSA.} 

P.R := 16#8000; 

{Assegna 32768 allo spiazzamento del campo di P.} 

P. 5 := 16; 

{Assegna 16 al campo segmento di P.} 

Q. R := P.R + 4; 

{Assegna lo spiazzamento di P piu' 4 per ottenere il valore di Q.} 
END; 

Si possono anche vedere gli esempi già' forniti in "Tipi Indirizzo" in 
questo capitolo. 







NOTE SUI TIPI DI RIFERIMENTO 


II tipo indirizzo e il tipo puntatore devono essere trattati come due 
tipi distinti. Il tipo puntatore, in teoria, e' una corrispondenza non 
definita da. una variabile a un'altra. Il metodo di implementazione non 
e' definito; tuttavia il tipo indirizzo riguarda gli indirizzi attuali di 
macchina. 

Perciò' il tipo puntatore e' un tipo astratto di dati che si comporta 
allo stesso modo in tutte le implementazioni; generalmente il tipo 
indirizzo, se non usato con cautela, non e' portabile. 1 tipi indirizzo 
sono portabili soltanto se ci si limita ad usare ADS e non li si assegna 
mai a campi. Nonostante queste limitazioni, comunque, essi possono essere 
piuttosto utili. 

Le seguenti prestazioni speciali che fanno uso di variabili puntatore non 
sono consentite con variabili indirizzo. 

Le procedure NEW e DISPOSE sono consentite soltanto con puntatori. 
N1L non si applica al tipo indirizzo. Non ci sono speciali valori 
indirizzo per indirizzi vuoti, non inizializzati o non validi. 

Il tipo "indirizzo del tipo super array" non e' supportato allo 
stesso modo del "puntatore al tipo super array”. Tuttavia e’ 
consentito ottenere con ADR e ADS l'indirizzo di una variabile super 
array. Per esempio, se un parametro formale di una procedura o 
funzione e 1 dichiarato come VAR S: STR1NG, allora l'espressione ADS S 
e‘ consentita all'interno della procedura o funzione. A differenza 
del puntatore, l'indirizzo non contiene estremi superiori. 


TIPI PACKED 

Qualunque tipo strutturato può' essere PACKED. Ciò’ consente di evitare 
alla memoria di sprecare tempo di accesso o spazio di accesso al codice. 
Tuttavia in Pascal sono di solito applicate alcune limitazioni sull'uso 
di strutture PACKED: 

Il prefisso PACKED e’ sempre ignorato, tranne per il controllo di 
tipo, nei tipi set, nei file e negli array di caratteri; nella 
maggior parte delle versioni Pascal esso non ha un reale effetto 
sulla rappresentazione dei record e di altri array. Inoltre PACKED 
può' solo precedere uno dei nomi di strutture ARRAY, RECORD, SET o 
FILE; non può’ precedere un identificatore di tipo. Per esempio, se 
COLORMAP e 1 l'identificatore di un tipo array non impaccato, "PACKED 
COLORMAP" non e' accettato. 

Un componente di una struttura PACKED può' essere passato come un 
parametro di riferimento o usato come record di un'istruzione W1TH, 
soltanto se la struttura e' di tipo stringa. Inoltre, non e' 
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TIPI DI RIFERIMENTO E ALTRI TIPI 


consentito ottenere l'indirizzo di un componente PACKED con ADR o 
ADS. 

Un prefisso PACKED si applica solo alla struttura che e' stata 
definita: tutte i componenti di quella struttura, anch'esse 
strutture, sono impaccati soltanto se si include esplicitamente la 
parola riservata PACKED nella loro definizione. La sola eccezione a 
questa regola, gli array ad n-dimensioni, e' descritta in "Array" nel 
Capitolo 9. 


TIPI PROCEDURALI E FUNZIONALI 


1 tipi procedurali e funzionali sono diversi dagli altri tipi Pascal; 
(d'ora in poi, l'uso del termine "procedurale" implica sia procedurale 
che funzionale). In una sezione TYPE non si può' dichiarare un 
identificatore, e neppure una variabile, per un tipo procedurale. 
Tuttavia si possono usare tipi procedurali per dichiarare il tipo di un 
parametro procedurale, e in questo senso essi risultano conformi al 
concetto di tipo del Pascal. 

Un tipo procedurale definisce una procedura o funzione di un'intestazione 
e da' qualsiasi parametro. Per una funzione esso definisce anche il tipo 
risultante. La sintassi di un tipo procedurale e' la stessa di una 
procedura o funzione dell'intestazione, compresi tutti gli attributi. In 
Pascal non esistono variabili procedurali, ma solo parametri procedurali. 

Esempio di una dichiarazione di tipo procedurale: 

PROCEDURE ZERO (FUNCT10N FUN (X, Y: REAL): READ 

Gli identificatori di parametro in un tipo procedurale (X e Y 
nell'esempio precedente) sono ignorati; e' importante solo il loro tipo. 

Per ulteriori informazioni sui tipi procedurali in Pascal, si può' 
leggere la sezione sui "Parametri Procedurali e Funzionali" nel Capitolo 
15. 





12. VARIABILI E VALORI 
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VARIABILI E VALORI 


COS'E' UNA VARIABILE ? 


Una variabile e’ un valore che generalmente cambia durante il corso di un 
programma. Ogni variabile deve essere di un tipo di dati specifico. Una 
variabile può' avere un identificatore. 

Se A e' una variabile di tipo 1NTEGER, allora l'uso di A in un programma 
si riferisce effettivamente ai dati indicati da A. 

Per esempio: 

VAR A: 1NTEGER; 

BEG1N 
A := 1; 

A := A + 1 
END; 


Queste istruzioni prima assegnano un valore 1 ai dati indicati da A, e 
successivamente assegnano ad esso un valore 2. 

Le variabili sono trattate mediante certe notazioni adatte a indicare la 
variabile, nel caso piu' semplice l'identificatore di una variabile. In 
altri casi le variabili possono essere indicate con indici di array, 
campi di record, prelievo del contenuto del puntatore o, infine, con 
variabili indirizzo. 

Il compilatore stesso può' a volte creare variabili "nascoste", allocate 
nello stack, in circostanze come queste: 

Quando e' chiamata una funzione che ritorna un risultato strutturato, 
il compilatore alloca una variabile nella routine di chiamata per il 
risultato. 

Quando e' necessario l'indirizzo di un'espressione (per esempio per 
passarlo come parametro di riferimento o per usarlo come istruzione 
WITH in un record o con ADR o ADS), il compilatore alloca una 
variabile per il valore dell'espressione. 

1 valori iniziali e finali di un ciclo FOR possono richiedere 
l'allocazione di una variabile. 

Quando il compilatore valuta un'espressione, può' allocare una 
variabile per memorizzare i risultati intermedi. 

Ogni istruzione WITH richiede una variabile da allocare per 
l'indirizzo di un record di WITH. 
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DICHIARAZIONE DI UNA VARIABILE 


Una dichiarazione di variabile e' costituita dall'identificatore della 
nuova variabile seguito da due punti e da un tipo. Si possono dichiarare 
variabili dello stesso tipo fornendo una lista degli identificatori di 
variabile, seguiti dal loro tipo comune. Per esempio: 

VAR XCOORD, YCOORD: REAL 

Si può' dichiarare una variabile in una qualsiasi delle seguenti 
locazioni : 

nella sezione VAR di un programma, procedura, funzione, modulo, 
interfaccia o implementazione. 

in una lista di parametri formali di una procedura, funzione, o 
parametro procedurale. 

In una sezione VAR si può' dichiarare una variabile di un qualunque tipo 
consentito; in una lista di parametri formali si può' includere soltanto 
un identificatore di tipo (cioè 1 non si può' dichiarare un tipo 
nell'intestazione di una procedura o funzione). Per esempio: 

PROCEDURE NAME (GEORGE: ARRAY [1..10] OF COLOR) 

{Non consentito; GEORGE e' di un tipo nuovo.} 

VAR VECT0R_A: VECTOR (10) 

{Consentito; VECTOR (10) e' un tipo derivato da un tipo super.} 

Ogni dichiarazione di una variabile F di file del tipo FILE OF T implica 
la dichiarazione di una variabile di buffer di tipo T, indicata da FA. Al 
livello Esteso, una dichiarazione di file implica anche la dichiarazione 
di una variabile record di tipo FCBFQQ, i cui campi sono indicati come 
F.TRAP, F.ERRS, F.MODE e cosi' via. Per ulteriori informazioni sulle 
variabili di buffer e sui campi FCBFQQ si possono vedere, 
rispettivamente, "La Variabile di Buffer" e "1/0 al Livello Esteso", nei 
Capitolo 10. 


LA SEZIONE VALUE 


In Pascal la sezione VALUE consente di dare valori iniziali alle 
variabili, in un programma, modulo, procedura o funzione. Si può' anche 
inizializzare una variabile in un'implementazione, ma non in 
un'interfaccia. La sezione VALUE può' includere solo variabili allocate 
staticamente, cioè' qualsiasi variabile dichiarata a livello di 
programma, modulo o implementazione, o una variabile con l'attributo 
STAT1C e PUBLIC. Le variabili con attributo EXTERN o 0R1G1N non possono 
essere presenti in una sezione VALUE, poiché' non sono allocate dal 
compilatore. 
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La sezione VALUE può' contenere assegnazioni di costanti a intere 
variabili o a componenti di variabili. 

Per esempio: 

VAR ALPHA : REAL; 

1D : STR1NG (7); 

1 : 1NTEGER; 

VALUE ! 

ALPHA := 2.23; 

IDEI] := -J'; 

1 := 1 ; 

Tuttavia, all'interno di una sezione VALUE non si può' assegnare una 
variabile ad un'altra variabile. L'ultima riga nel seguente esempio non 
e' consentita, poiché' "1" deve essere una costante: 

CONST MAX = 10; 

VAR 1,J : 1NTEGER; 

VALUE 1 := MAX; 

J := 1; 

Se il metacomando $R0M non e* attivo, le variabili sono iniziaiizzate ! 

caricando il segmento statico di dati. Se il metacomando $R0M e' attivo, ! 

la sezione VALUE genera un messaggio di errore, poiché* i sistemi basati 
su ROM in genere non possono inizializzare i dati in modo statico. 


USO Dt VARIABILI E VALORI 


Al livello Standard del Pascal, l'indicazione di una variabile può' 
designare una delle tre cose: 

1. una variabile intera 

2. un componente di una variabile 

3. una variabile indicata da un puntatore 
Un valore può 1 essere: 

una variabile 
una costante 

un indicatore di funzione 

un componente di un valore 

una variabile indicata da un valore di riferimento 
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Al livello Esteso una funzione può’ anche ritornare un array, un record o 
un set. La stessa sintassi usata per le variabili può' essere usata per 
indicare i componenti delle strutture ritornate da queste funzioni. 

Questa caratteristica consente anche di prelevare il contenuto di un tipo 
di riferimento ritornato da una funzione. Tuttavia si può’ soltanto 
usare l'indicatore di funzione come un valore, non come una variabile. 
Per esempio, la seguente funzione non e' consentita: 

F (X, Y)A := 42; 

Anche al livello Esteso si possono dichiarare costanti di un tipo 
strutturato. 1 componenti di una costante strutturata usano la stessa 
sintassi delle variabili dello stesso tipo (per un'ulteriore descrizione 
di questo argomento si può' vedere "Espressioni Costanti", nel Capitolo 
6 ). 

Esempi di componenti di costanti strutturate: 

TYPE REAL3 = ARRAY [1..3] OF REAL; 

{Un tipo array} 

CONST PIES = REAL3 (3.14, 6.28, 9.42); 

{Una costante array) 

X := PIES [1 ] * P1E5 [3]; 

{Cioè', 3.14 * 9.42} 

Y := REAL3 (1.1, 2.2, 3.3) [2]; 

{Cioè', 2.2} 

COMPONENTI DI VARIABILI E VALORI INTERI 

Al livello Standard un identificatore di variabile indica una variabile 
intera. Una variabile, un indicatore di funzione o una costante indica un 
valore intero. 

Un componente di ùna variabile o valore e' indicato dall’identificatore 
seguito da un selettore che specifica la componente. 11 formato di un 
selettore dipende dal tipo di struttura (array, record, file o 
riferimento). 


Variabili e Valori Indicizzati 

Un componente di un array e’ indicato dalla variabile o dal valore 
dell'array, seguito da un'espressione indice. L'espressione indice deve 
essere compatibile in assegnazione con il tipo indice della dichiarazione 
di tipo array. Un tipo indice deve sempre essere un tipo ordinale. 
L'indice stesso deve essere racchiuso tra parentesi quadre e seguire 
l'identificatore di array. 
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Esempi di variabili e valori indicizzati: 

ARRAY_OF_CHAR [’C] 

{Indica l'elemento C.} 

’STRING CONSTANT' [6] 

{indica il sesto elemento, la lettera 1 G'.} 

BETAMAX [12] [-3] 

BETAMAX [12,-3] 

{Questi due dicono la stessa cosa.} 

ARRAY_FUNCT10N (A, B) [C, D] 

{Indica un componente di un array bidimensionale} 

{restituito da ARRAY_FUNCT10N (A, B). A e B sono} 

{parametri attuali.} 

Si può' specificare la lunghezza corrente di una variabile LSTRING, LSTR, 
in uno dei due modi : 

1. con la notazione LSTR [0], per accedere alla lunghezza come un 
componente CHAR 

2. con la notazione LSTR.LEN, per accedere alla lunghezza come un valore 
BYTE 


Variabili e Valori di Campo 

Un componente di un record e' indicato dalla variabile o dal valore del 
record seguiti dall'identificatore di campo del componente. I campi sono 
separati dal punto {.). In un'istruzione WITH si assegna la variabile o 
il valore del record soltanto una volta. All'interno dell'istruzione 
WITH si può' usare direttamente l'identificatore di campo di una 
variabile record. 

Esempi di variabili e di valori di campo: 

PERSON.NAME := ’PETE ' 

PEOPLE.DRIVERS.NAME := ’JOAN' 

WITH PEOPLE.DRIVERS DO NAME := 'GERÌ' 

RECURS1NG_FUNC ('XYZ').BETA 

{Sceglie il campo BETA del record, ritornato} 

{dalla funzione denominata RECURSIVE_FYNC.} 

C0MPLEX_TYPE {1.2, 3.14).REAL_PART 

La notazione di campo di record si applica anche ai file per i campi 
FCBFQQ, per indirizzare valori di tipi per le rappresentazioni numeriche, 
e ai tipi LSTRING per la lunghezza corrente. 
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Buffer e Campi di File 


Si può' accedere soltanto ad un componente di file alla volta. 11 
componente a cui si può' accedere e' determinato dalla posizione corrente 
del file ed e' rappresentato dalla variabile di buffer. A seconda dello 
stato della variabile di buffer, estraendo il suo valore si può' prima 
leggere il valore dal file; (ciò' viene definita "valutazione pigra"; per 
maggiori dettagli si può' leggere la sezione su "Valutazione Pigra", nel 
Capitolo 17). 

Se una variabile di buffer di file e' passata come un parametro di 
riferimento o e' usata come un record di un'istruzione W1TH, il 
compilatore emette un segnale per avvertire che il valore della variabile 
di buffer non può' essere corretto dopo che la posizione del file e' 
stata cambiata con una procedura GET o PUT. 

Esempi di variabili di riferimento di un file: 

INPUTa 

ACCOUNTS PAYABLE.F1LEA 


VARIABILI DI RIFERIMENTO 

Le variabili o i valori di riferimento indicano i dati che si riferiscono 
a qualche tipo di dati. Esistono tre varietà' di variabili e valori di 
riferimento: 

1. variabili e valori di puntatore 

2. variabili e valori ADR 

3. variabili e valori ADS 

In generale una variabile o un valore di riferimento "punta" a dei dati 
in oggetto. In questo modo il valore di una variabile o valore di 
riferimento e' un riferimento a quei dati. 

Per ottenere gli attuali dati effettivamente indicati, si deve "prelevare 
il contenuto" della variabile di riferimento aggiungendo una freccia in 
alto (A) alla variabile o al valore. 
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VARIABILI E VALORI 


Esempio di uso di valori puntatore: 

VAR P,Q : A1NTEGER; 

(P e Q sono puntatori a interi.} 

NEW (P); NEW (Q); 

{P e Q sono assegnati a valori di riferimento di zone} 

{della memoria corrispondenti a dati di tipo 1NTEGER.} 

P := Q; 

{P e Q ora puntano la stessa zona di memoria.} 

PA := 123; 

{Assegna il valore 123 al valore 1NTEGER puntato da P.} 

J Poiché' anche Q punta a questa locazione, anche ad esso} 
viene assegnato 123.} 

Usare N1LA e' un errore (poiché' un puntatore a N1L non si riferisce a 
nulla). Al livello Esteso^ si può’ anche aggiungere una freccia in alto 
(A) ad un indicatore di funzione per una funzione che ritorna un 
puntatore o un tipo indirizzo. In questo caso la freccia in alto indica 
il valore cui si riferisce il valore ritornato. Questa variabile non 
può' essere assegnata o passata come parametro di riferimento. 

Esempi di funzioni che ritornano valori di riferimento: 

DATAI := FUNK1 (I, J)A 

{FUNK1 ritorna un valore di riferimento. La freccia in alto} 

{preleva il contenuto del valore di riferimento ritornato, assegnando} 
{a DATAI i dati indicati.} 

DATA2 := FUNK2 (K, L)A.F00 [2] 

{FUNK2 ritorna un valore di riferimento. La freccia in alto preleva} 
{il contenuto del valore di riferimento ritornato. In questo caso} 

{il valore del contenuto e' un record.} 

{11 componente di array F00 [2] di quel record e' assegnato alla} 
{variabile DATA2.} 

Se P e' di tipo ADR OF qualche tipo, P.R indica il valore indirizzo del 
tipo WORD. Se P e' di tipo ADS OF qualche tipo, P.R indica la porzione 
di spiazzamento (offset) dell'indirizzo e P.S la porzione segmento 
dell'indirizzo. Entrambe le porzioni sono di tipo WORD. 

Esempi di variabili indirizzo: 


BUFF_ADR.R 
DATA AREA.S 




ATTRIBUTI 


Al livello Esteso del Pascal, una dichiarazione di variabile o 
l'intestazione di una procedura o funzione può' includere uno o piu' 
attributi. L’attributo di una variabile fornisce al compilatore speciali 
informazioni sulla variabile. 

La tabella 12-1 visualizza gli attributi forniti dal Pascal per le 
variabili. 


Attributo 

| Variabile 


STAT1C 

i "■ “ ... . 

I 

; Allocata su una locazione fissa, non sullo stack 


PUBLIC. 

Accessibile da altri moduli tramite EXTERN, implica 

STAT1C 

EXTERN 

! Dichiarata come PUBLIC in un altro modulo, implica 

STAT1C 

0R1G1N 

] 

j Collocata su indirizzi specifici, implica STAT1C 


PORT 

; Indirizzo di 1/0, implica STAT1C 


READONLY 

Non può' essere alterata o scritta 



Tabella 12-1 Attributi di Variabili 


L’attributo EXTERN e’ anche una direttiva di procedura e funzione; come 
PUBLIC e 0R1G1N sono anche attributi di procedure e funzioni. Per una 
descrizione degli attributi e delle direttive di procedure e funzioni si 
può' vedere "Attributi e Direttive", nel Capitolo 15. Le sezioni 
seguenti descrivono in dettaglio ogni attributo di variabili. 

Si possono assegnare attributi alle variabili solo in una sezione VAR. 
Non e' consentito specificare gli attributi delle variabili in una 
sezione TYPE o in una lista di parametri di procedure o funzioni. 

In una dichiarazione di variabili si assegnano uno o piu' attributi, 
racchiusi tra parentesi quadre e separati da virgole (se viene 
specificato piu' di un attributo). 

La posizione delle parentesi quadre specifica uno dei due casi: 

1. In una sezione VAR, un attributo tra parentesi quadre dopo un 
identificatore di variabile, si applica solo a quella variabile. 

2. Un attributo tra parentesi quadre, dopo la parola riservata VAR, si 
applica a tutte le variabili della sezione. 
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Esempi che specif,icano gli attributi delle variabili: 

VAR A, B, C [EXTERN] : 1NTEGER; 

{Si applica solo a C.} 

VAR [PUBLIC] A, B, C : 1NTEGER; 

{Si applica ad A, B e C. } 

VAR [PUBLIC] A, B, C [0R1G1N 16#1000] : 1NTEGER; 
{A, B e C sono tutti PUBLIC. OR1G1N di C e'} 
{l'indirizzo assoluto esadecimale 1000.} 


L’ATTRIBUTO STAT1C 

L'attributo STAT1C da' ad una variabile una locazione univoca e fissa in 
memoria. Ciò' e' in contrasto con una variabile di procedura o funzione 
allocata nello stack oppure allocata in modo dinamico nell'area heap. 
L'uso di variabili STAT1C può' evitare perdite di tempo e di spazio per 
il codice, ma aumenta lo spazio dati. 

A tutte le variabili a livello di programma, modulo o unita' e’ 
automaticamente assegnata una locazione fissa di memoria oltre 
l'attributo STAT1C. 

Le funzioni e le procedure che usano variabili STAT1C possono essere 
eseguite ricorsivamente, pero' le variabili STAT1C devono essere usate 
solo per dati comuni a tutte le chiamate. Poiché' la maggior parte degli 
altri attributi di variabili implica l'attributo STAT1C, ciò' che 
consente di evitare perdita di tempo e di spazio di codice oppure 
riduzione dello spazio dati e' il ricorso agli attributi PUBLIC, EXTERN, 
0R1G1N e PORT. 

1 file dichiarati in una procedura o funzione con l'attributo STAT1C sono 
iniziali zzati quando e' lanciata la routine, sono chiusi quando la 
routine termina come altri file. Tuttavia le altre variabili STAT1C sono 
inizializzate soltanto prima dell'esecuzione del programma. Ciò' 
significa che, tranne che per le variabili di FILE aperto, le variabili 
STAT1C possono essere usate per memorizzare i valori tra le chiamate di 
una procedura o funzione. 
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Esempi di dichiarazioni di variabile STAT1C: 


VAR VECTOR [STATICI: ARRAY [0..MAXVEC] OF 1NTEGER; 

VAR [STAT1C] I, J, K : 0..MAXVEC; 

L'attributo STAT1C non si applica a procedure o funzioni, come fanno 
altri attributi. 


GLI ATTRIBUTI PUBLIC E EXTERN 

L'attributo PUBLIC indica una variabile a cui si può' accedere da altri 
moduli caricati; l'attributo EXTERN identifica una variabile che risiede 
in qualche altro modulo caricato. L'identificatore e' passato al linker 
nel file di codice oggetto generato (dove può' essere troncato se il 
linker impone una limitazione di lunghezza). 

Le variabili con attributo PUBLIC o EXTERN sono implicitamente STAT1C. 

Esempi di dichiarazioni di variabili PUBLIC e EXTERN: 

VAR [EXTERN] GL0BE1, GL0BE2: 1NTEGER; 

{Le variabili GL0BE1 e GL0BE2 sono dichiarate EXTERN, ciò' significa) 
{che devono essere dichiarate PUBLIC in qualche altro modulo caricato.) 

VAR BASE_PAGE [PUBLIC, 0R1G1N #12FE]: BYTE; 

{La variabile BASE_PAGE e' collocata a 12FE, esadecimale. Poiché 1 ) 

{essa e' anche PUBLIC, vi si può' accedere da altri moduli caricati) 
{che dichiarano BASE_PAGE con l'attributo EXTERN.) 

Le variabili PUBLIC sono di solito allocate dal compilatore, se non si 
assegna loro l'attributo 0R1G1N. Assegnare ad una variabile gli attributi 
PUBLIC e 0RIG1N, e' un modo per dire al caricatore che un nome globale ha 
un indirizzo assoluto. PUBLIC non può' essere combinato con PORT. 

Se PUBLIC e 0R1G1N sono entrambi presenti, il compilatore non ha bisogno 
del caricatore per tradurre l'indirizzo. Tuttavia, l'identificatore e’ 
sempre passato al linker per poter essere usato da altri moduli. 

Le variabili EXTERN non sono allocate dal compilatore. Non hanno neppure 
un 0R1G1N, poiché' assegnare sia EXTERN che 0R1G1N implica due modi 
differenti di accedere alla variabile. La parola riservata EXTERNAL e' 
sinonimo di EXTERN. Ciò' accresce la portabilità' da altri Pascal, 
poiché' questi di solito utilizzano una delle due. 

Alle variabili nell'interfaccia di un'unita' e' automaticamente assegnato 
l'attributo PUBLIC oppure EXTERN. Se un programma, modulo o unita' 
utilizza tramite la clausola USE un'interfaccia, le sue variabili sono 
rese EXTERN; se si compila la 1MPLEMENTAT10N dell'interfaccia, le sue 
variabili sono rese PUBLIC. 
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GLI ATTRIBUTI ORIGIN E PORT 

i 

! 

L'attributo ORIGIN ordina al compilatore di collocare una variabile in un 
determinato indirizzo di memoria; l'attributo PORT specifica un certo 
tipo di indirizzo I/O. In entrambi i casi l'indirizzo deve essere una 
costante di un qualunque tipo ordinale. Ai punti di accesso 1/0, ai 
vettori di interruzione, ai dati di sistema operativo e ad altri dati 
relativi si può' accedere tramite le variabili con ORIGIN o PORT. 

Esempi di dichiarazioni di variabili con attributi ORIGIN e STAT1C: 

VAR KEYBOARDP [PORT 16#FFF2]: CHAR; j 

VAR INTRVECT [ORIGIN 8#200]: WORD; 

Le variabili con attributi ORIGIN o PORT sono implicitamente STATIC. 
Inoltre esse impediscono l'ottimizzazione di comuni sottoespressioni. Per 
esempio, se GATE ha l'attributo ORIGIN, le due istruzioni X := GATE; Y 
:= GATE accedono a GATE due volte nell'ordine dato, invece di usare il 
primo valore per entrambe le assegnazioni. Questo assicura una corretta 
operazione, se GATE rappresenta un punto di accesso input in memoria. 
Tuttavia, se GATE e' passato come un parametro di riferimento, i 
riferimenti al parametro possono essere ottimizzati altrove. Per questo 
motivo le variabili PORT non possono essere passate come parametri di 
riferimento. 

Le variabili con ORIGIN e PORT non sono mai allocate o inizializzate dal 
compilatore. L'indirizzo associato indica soltanto dove viene trovata la 
variabile. ORIGIN implica sempre un indirizzo di memoria, ma il 
significato di PORT varia al variare dell'implementazione. 

Nella maggior parte delle implementazioni, si assume che l'1/O sia in 
memoria, perciò' PORT e' sinonimo di ORIGIN. Altre implementazioni usano 
le istruzioni originarie di macchina per l'input e l'output. Altre ancora 
chiamano l'input del punto di accesso e le routine di output per ogni 
accesso. 

Per ulteriori informazioni sull'attributo PORT si può' vedere l'Appendice 
A, "Caratteristiche di Implementazione", nel manuale "Linguaggio Pascal 
Guida Utente". 

Assegnare gli attributi PORT e ORIGIN tra parentesi quadre immediatamente 
dopo la parola chiave VAR, e' ambiguo e genera un errore durante la 
compilazione. (E' poco chiaro per il compilatore se tutte le variabili 
seguenti sono allo stesso indirizzo o se gli indirizzi sono assegnati 
sequenzialmente.) 

VAR [ORIGIN 0] FIRST, SECOND: BYTE; {Non valido} 

ORIGIN (ma non PORT) consente un indirizzo segmentato usando la notazione 
"segmento: spiazzamento". 

VAR SEGVECT [ORIGIN 16#0001 : 16#FFFE]: WORD; 

Di solito una variabile con l'attributo ORIGIN segmentato non può' essere 
usata come variabile di controllo in un'istruzione FOR. 




L'ATTRIBUTO READONLY 


L'attributo READONLY impedisce assegnazioni ad una variabile e che questa 
possa essere passata come un parametro VAR o VARS. Inoltre una variabile 
READONLY non può' essere letta con un'istruzione READ o usata come una 
variabile di controllo FOR. Si può' usare READONLY con qualunque degli 
altri attributi. 

Esempi di dichiarazioni di variabili con attributo READONLY: 

VAR 1NP0RT [PORT 12, READONLY]: BYTE; 

{1NP0RT e' una variabile con attributi READONLY e PORT.) 

VAR [READONLY] 1, J [PUBLIC], K [EXTERN]: 1NTEGER; 

{1, J e K sono tutte READONLY;} 

{J e' anche PUBLIC; K e' anche EXTERN.) 

Ai parametri CONST e CONSTS, come alle variabili di controllo del ciclo 
FOR (mentre sono nel corpo del ciclo), e’ automaticamente assegnato 
l’attributo READONLY. READONLY e' il solo attributo di variabile che non 
implica l'allocazione STAT1C. 

Una variabile sia READONLY che PUBLIC o EXTERN in un file sorgente non e' 
necessariamente READONLY quando viene usata in un altro file sorgente. 
L'attributo READONLY non si applica a procedure e funzioni. 


COMBINAZIONE DI ATTRIBUTI 


Si possono dare ad una variabile vari attributi, separati da virgole, e 
si deve racchiudere la lista tra parentesi quadre: 

VAR [STAT1C] 

X, Y, Z [0R1G1N #FFFE, READONLY]: 1NTEGER; 


In questo esempio Z e’ una variabile con gli attributi STAT1C, READONLY 
con un ORIGIN all'indirizzo FFFE esadecimale. Nella combinazione di 
attributi si applicano queste regole: 


se si assegna ad una variabile l'attributo EXTERN, non le si possono 
assegnare gli attributi PORT, ORIGIN o PUBLIC nella compilazione 
corrente. 


se si assegna ad una variabile l'attributo PORT, non le si possono 
assegnare gli attributi ORIGIN, PUBLIC o EXTERN. 


se si assegna ad una variabile l'attributo ORIGIN, non le si possono 
anche assegnare gli attributi PORT o EXTERN. Tuttavia si può' 
combinare ORIGIN con PUBLIC. 


se si assegna ad una variabile l'attributo PUBLIC, non le si possono 
anche assegnare gli attributi PORT o EXTERN. Tuttavia si può' 
combinare PUBLIC con ORIGIN. 


si possono usare STAT1C e READONLY con qualunque altro attributo. 
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13. ESPRESSIONI 
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ESPRESSIONE 


INTRODUZIONE 


Le espressioni sono costruzioni che danno come risultato dei valori. La 
tabella 13-1 illustra una varietà' di espressioni che, se A = 1 e B = 2, 
danno come risultato il valore indicato. 


Espressione 


Valore 



2 


A I 1 

1 

A + 2 | 3 

(A + 2) j 3 

i 

(A + 2) * (B - 3) ! -3 


Tabella 13-1 Espressioni 


In un'espressione gli operandi possono essere un valore o qualunque altra 
espressione. Quando un qualunque operatore e' applicato ad 
un'espressione, questa e' chiamata operando. Tramite le parentesi che 
servono a raggruppare e tramite gli operatori che usano altre 
espressioni, si possono costruire espressioni della lunghezza e 
complessità 1 desiderate. 

Questi sono gli operatori disponibili, nell'ordine in cui sono applicati: 
Unario 

NOT [ADR ADS] 

Moltiplicatore 

* / D1V MOD AND (1SR SHL SHR) 

Addizionatore 
+ - OR (XOR) 

Relazionale 

= <><=>=< > IN 

Gli operatori indicati in parentesi tonde sono disponibili solo al 
livello Esteso del Pascal; quelli in parentesi quadre solo al livello di 
Sistema. 








Un'espressione Pascal e' un valore oppure il risultato dell'applicazione 
di un operatore ad uno o due valori. Anche se un valore può' essere di 
quasi tutti i tipi, la maggior parte degli operatori Pascal si applica 
solto ai tipi seguenti: 

1NTEGER 

WORD 

REAL 

1NTEGER4 

BOOLEAN 

SET 

Gli operatori relazionali si applicano anche ai tipi CHAR, enumerati, 
stringa e di riferimento. Per tutti gli operatori (tranne l'operatore su 
insiemi IN), gli operandi devono avere tipi compatibili. 


ESPRESSIONI DI TIPI SEMPLICI 


Come regola, gli operandi e il valore risultante da un'operazione sono 
tutti dello stesso tipo. A volte, tuttavia, il tipo di un operando e' 
convertito nel tipo richiesto da un operatore. 

Questa conversione avviene a due livelli: uno soltanto per gli operandi 
di costante, e uno per tutti gli operandi. La conversione da 1NTEGER a 
WORD avviene soltanto per gli operandi costanti; quella da 1NTEGER a 
REAL e da 1NTEGER o WORD a 1NTEGER4 avviene per tutti gli operandi. 

Se necessario, nelle espressioni costanti i valori 1NTEGER si convertono 
nel tipo WORD. Occorre fare attenzione quando si mescolano costanti 
1NTEGER e WORD nelle espressioni. Per esempio, se CBASE e' la costante 
16#C000 e DELTA e' la costante -1, l'espressione seguente segnala un 
superamento di capacita' (overflow) WORD: 

WRD (CBASE) + DELTA 

11 superamento di capacita' si verifica perche' DELTA e' convertito nel 
valore WORD 16#FFFF, e 16#C000 piu' 16#FFFF e' maggiore di MAXWORD. 
Invece, la seguente espressione e' corretta: 

WRD (ORD (CBASE) + DELTA) 

Questa espressione da' il valore 1NTEGER -16385, che si converte in WORD 
16#BFFF. Se la conversione e' richiesta da un operatore o per 
un'assegnazione, il compilatore esegue le seguenti conversioni: 

da 1NTEGER a REAL o 1NTEGER4 

- da WORD a 1NTEGER4 
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Le seguenti regole determinano il tipo del risultato di un'espressione 
che comprende questi tipi semplici: 

1 . + - * 

Questi operatori operano su tipi 1NTEGER, REAL, WORD e 1NTEGER4, come 
indicato nei seguenti esempi: 

+123 
A + 123 
-23.4 
A - 8 
A * B * 3 

E' consentito mescolare tipi REAL con 1NTEGER, e 1NTEGER4 con 1NTEGER 
o WORD. Dove entrambi gli operandi sono dello stesso tipo, il tipo 
del risultato e’ quello degli operandi. Se ciascun operando e' REAL, 
il tipo del risultato e' REAL; altrimenti, se ciascun operando e' 
1NTEGER4, il tipo del risultato e' 1NTEGER4. 

Sono ammessi gli operatori unari piu’ (+) e meno (-), insieme alle 
forme binarie. 11 meno unario su un tipo WORD e' il complemento a 2 
(NOT e' il complemento a 1); poiché' non ci sono valori WORD 
negativi, ciò' genera sempre un segnale di avvertimento. 

11 meno unario ha lo stesso livello di precedenza degli operatori 
addizionali: 

(X * -1) {Non e' consentito} 

(-256 AND X) {E 1 interpretato come -(256 AND X)} 

2 . / 

Questo e' il "vero" operatore della divisione. 11 risultato e' 
sempre REAL. Gli operandi possono essere 1NTEGER o REAL (non WORD o 
INTEGER4). 

Esempi di divisione: 

34 / 26.4 = 1.28787... 

18/6 = 3.00000... 

3. DIV M0D 

Questi sono gli operatori rispettivamente per quoziente e resto di 
divisione intera. L'operando di sinistra (dividendo) e' diviso 
dall'operando di destra (divisore). 

Esempi di divisione intera: 

123 M0D 5 = 3 

-123 M0D 5 = -3 {il segno del risultato e' il segno del dividendo} 
123 M0D -5=3 

1.3 M0D 5 {Non consentito con operandi REAL} 




123 D1V 5 = 24 

1.3 D1V 5 {Non consentito con operandi REAL} 

Entrambi gli operandi devono essere dello stesso tipo: 1NTEGER, WORD 
o 1NTEGER4 (non REAL). 11 segno del resto (MOD) e' sempre quello del 
dividendo. 

11 Pascal si differenzia dall'attuale versione dello standard ISO 
riguardo la semantica di D1V e MOD con operandi negativi, ma il 
codice risultante e' piu' efficiente. 1 programmi che si vogliono 
trasferire devono usare D1V e MOD solo se entrambi gli operandi sono 
positivi. 

4. AND OR XOR NOT 

Questi operatori del livello Esteso sono funzioni logiche a livello 
di bit. Gli operandi devono essere 1NTEGER o WORD o 1NTEGER4 (mai un 
misto), e non possono essere REAL. 11 risultato e' del tipo degli 
operandi. 

NOT e' un'operazione di complemento a uno a livello di bit sul 
singolo operando. Se una variabile V di tipo 1NTEGER ha il valore 
MAX1NT, NOT V da' il valore 1NTEGER non consentito -32768. Ciò' 
genera un errore se il controllo di inizializzazione e' attivato e il 
valore e' usato successivamente nel programma. 

Dati i seguenti valori iniziali 1NTEGER, 

X = 2#1111000011110000 
Y = 2#1111111100000000 

AND, OR, XOR e NOT eseguono le seguenti funzioni: 

X AND Y 1111000011110000 

1111111100000000 


1111000000000000 

X OR Y 1111000011110000 

1111111100000000 


1111111111110000 

X XOR Y 1111000011110000 

1111111100000000 


0000111111110000 
NOT X 1111000011110000 


0000111100001111 
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5. SHL SHR 1SR 

Questi operatori di livello Esteso forniscono funzioni di shift a 
livello di bit. 

SHL e SHR sono shift logici destri e sinistri. 1SR e' uno shift 
aritmetico a destra di un intero con segno: il bit con segno e' 
sempre trasmesso, anche su un operando di tipo WORD. Poiché' il 
compilatore non può 1 generare un semplice shift a destra per le 
divisioni di 1NTEGER (-1 D1V 2 e' scorretto) e la divisione e 1 
un'operazione che richiede molto tempo, allora si possono usare, 
appropriatamente, SHR o 1SR invece di D1V. 

Gli operandi devono essere 1NTEGER, WORD o 1NTEGER4; non possono 
essere REAL. 11 risultato e' dello stesso tipo degli operandi. 

L'operando sinistro viene "shiftato", e il destro contiene il calcolo 
dello shift in bit. Un calcolo dello shift minore di 0 o maggiore di 
32 produce risultati non definiti e genera un messaggio di errore se 
e' attivo il controllo di variabilità'. Gli shift non causano mai 
errori di overflow; i bit shiftati sono semplicemente perduti. 

Dato che X = 11111100000000, le funzioni di shift eseguono le 

seguenti operazioni: 

1111111100000000 

1111111000000000 

0111111110000000 

1111111110000000 {estensione di segno) 


I 

I 

I 


ESPRESSIONI B00LEANE 

Gli operatori booleani al livello Standard del Pascal sono: 

NOT AND OR 

= < > 

<> <= >= 

X0R e' disponibile ai livelli Esteso e di Sistema. 

Si può' anche usare P <> Q come una funzione di OR esclusivo. Poiché' 
FALSE < TRUE, P <= Q indica l'operazione booleana "P implica Q". Inoltre 
gli operatori booleani AND e OR non sono gli stessi degli operatori WORD 
e 1NTEGER con lo stesso nome, che sono funzioni logiche tra bit. Gli 
operatori booleani AND e OR possono o no calcolare le proprie operazioni. 


X 

X SHL 1 
X SHR 1 
X 1SR 1 






L'esempio seguente illustra come e' pericoloso supporre che non lo 
facciano : 

WH1LE (1 <= MAX) AND (V [1] <> T) DO I := 1 + 1 ; 

Se l'array V ha un estremo superiore MAX, allora la valutazione di V [1] 
per I > MAX e' un errore di runtime. Questa valutazione può' o no 
avvenire. Qualche volta entrambi gli operandi sono valutati durante 
l'ottimizzazione, e qualche volta la valutazione di uno può' alterare 
quella dell'altro. In quest'ultimo caso, l'uno o l'altro operando può' 
essere valutato per primo. 

Si può' invece usare la seguente costruzione: 

WH1LE I <= MAX DO 

IF V [I] <> T THEN I := 1 + 1 ELSE BREAK; 

Per avere informazioni sull'uso di AND THEN e di OR ELSE nelle situazioni 
in cui, come nell'esempio precedente, i testi sono esaminati 
sequenzialmente, si può' vedere la sezione sul "Controllo Sequenziale", 
nel Capitolo 14. 

Gli operatori relazionali producono un risultato booleano. I tipi degli 
operandi di un operatore relazionale (tranne IN) devono essere 
compatibili. Se non lo sono, uno deve essere REAL e l'altro compatibile 
con INTEGER. 

1 tipi di riferimento possono soltanto essere confrontati con = e <>. 
Per confrontare un tipo indirizzo con uno degli altri operatori 
relazionali, si deve usare la notazione del campo indirizzo: 

1F (A.R < B.R) THEN <istruzione>; 

Ad eccezione dei tipi stringa STRING e LSTRING, non si possono 
confrontare file, array e record come per gli interi. Per essere 
confrontati, due tipi STRING devono avere lo stesso estremo superiore; 
due tipi LSTRING possono avere estremi superiori differenti. 

Nei confronti di tipi LSTRING, vengono ignorati i caratteri che superano 
la lunghezza corrente. Se tale lunghezza di un LSTRING e' minore della 
lunghezza dell'altro e tutti i caratteri fino alla lunghezza del piu' 
corto sono uguali, il compilatore assume che il piu' corto e' "minore" 
del piu' lungo. Tuttavia due LSTRING sono considerati uguali solo se 
tutti i caratteri correnti e le loro lunghezze correnti sono uguali. 

I sei operatori relazionali =, <>, <=, >=, < e > assumono il loro 
significato normale quando applicati a operandi numerici, enumerati, CHAR 
o stringa. La sezione "Espressioni di Insiemi" in questo capitolo 
descrive il significato di questi operatori relazionali (compreso 
l'operatore relazionale IN) quando applicati a insiemi. Poiché' gli 
operatori relazionali nelle espressioni booleane hanno una minore 
priorità' di AND e OR, la seguente espressione non e' corretta: 

1F 1 < 10 AND J = K THEN 
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Si deve invece scrivere: 

IF (I < 10) AND (J = K) THEN 

Inoltre non si possono usare i tipi numerici dove e' richiesto un 
operando booleano. Per un intero I, la clausola IF I THEN non e' 
consentita; al suo posto si deve usare la seguente: 

IF 1 <> 0 THEN 

Si deve tuttavia osservare che i metacomandi Pascal consentono di 
scrivere: 

$1F I $THEN 

L'inclusione di valori speciali "not-a-number" (NaN) significa che un 
confronto tra due numeri reali può' dare un risultato diverso da minore 
di, uguale a, oppure maggiore di. 1 numeri possono essere non ordinati, 
cioè' uno o entrambi sono NaN. Un risultato non ordinato e' lo stesso 
che "non uguale a, non minore di, e non maggiore di". 

Per esempio, se le variabili A o B sono valori NaN: 

A < B e' falso 

A <= B e' falso 

A > B e' falso 

A >= B e' falso 

A = B e' falso 

A <> B e', comunque, vero 

I confronti REAL non seguono le stesse regole degli altri confronti in 
molti modi. A < B non e' sempre lo stesso che NOT (B <= A); ciò' previene 
alcune ottimizzazioni altrimenti eseguite dal compilatore. Se A e’ un 
NaN, allora A <> A e' vero; infatti e' un buon modo per controllare un 
valore NaN. 
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ESPRESSIONI DI INSIEMI 


La tabella 13-2 indica gli operatori Pascal che si applicano in modo 
diverso ad insiemi che ad altri tipi di espressioni. 


Operatore 


Significato delle operazioni su insiemi 


+ 

* 

<> 

<= e >= 

< e > 

IN 


Unione di insiemi 
Differenza tra insiemi 
Intersezione tra insiemi 
Controllo sull'uguaglianza tra insiemi 
Controllo sulla disuguaglianza tra insiemi 
Controllo su sottoinsiemi e soprainsiemi 
Controllo su sottoinsiemi e soprainsiemi propri 
Controllo sugli elementi dell’insieme 


Tabella 13-2 Operatori su Insiemi 


Qualunque operatore il cui tipo e’ SET OF S, dove S e’ un subrange di T, 
e' trattato come SET OF T, (T e' limitato ad un campo di variabilità' 
compreso tra 0 e 255 o ai valori ORD equivalenti). Entrambi gli operandi 
devono essere PACKED, oppure nessuno deve essere PACKED, a meno che un 
operando non sia una costante o un insieme costruito. 

Con l'operatore IN, l'operando sinistro (un ordinale) deve essere 
compatibile con il tipo base dell'operando destro (un insieme). Il valore 
dell'espressione X IN B e' TRUE se X e' un elemento dell'insieme B, 
altrimenti e' FALSE. X può 1 essere, correttamente, esterno al campo di 
variabilità' del tipo base di B. Per esempio, X IN B e' sempre falso se 
le seguenti istruzioni sono vere: 


X = 1 

B = SET OF 2..9 

(1 e' compatibile, ma non compatibile per l'assegnazione, con 2..9). 

Le parentesi ad angolo sono operatori di insiemi solo al livello Esteso 
del Pascal, poiché' lo standard 150 non li ammette per gli insiemi. Esse 
controllano che un insieme sia un sottoinsieme proprio oppure un 
soprainsieme di un altro insieme. La formazione di sottoinsiemi propri 
non prevede l'uso di un insieme come sottoinsieme, se i due insiemi sono 
uguali. 
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Le espressioni che comprendono insiemi possono usare il "costruttore 
set", che presenta gli elementi di un insieme racchiusi tra parentesi 
quadre. Ciascun elemento può' essere un'espressione il cui tipo e' nel 
tipo base dell'insieme oppure e' delimitato dagli estremi inferiori e 
superiori del campo di variabilità' degli elementi nel tipo base. Gli 
elementi non possono essere insiemi essi stessi. 

Esempi di insiemi che comprendono costruttori set: 

SET_C0L0R := [RED, BLUE.. PURPLE] - [YELLOW] 

SET NUMBER := [12, J+K, TRUNC <EXP (X)h.TRUNC (EXP (X+1))] 

La sintassi del costruttore set e' simile a quella delle costanti CASE. 
Se X > Y allora [X..Y] indica l'insieme vuoto. Le parentesi vuote 
indicano anche l'insieme vuoto e sono compatibili con tutti gli insiemi. 
Inoltre, se tutti gli elementi sono costanti, un costruttore set e' come 
una costante set. 

Come altre costanti strutturate, l'identificatore di tipo di una costante 
set può' essere incluso in una costante set, come in COLORSET 
[RED..BLUE]. Ciò' non significa che ad un costruttore set con elementi 
variabili non può' essere assegnato un tipo in un'espressione: NUMBERSET 
[1..J] non e' consentito se I o J e' una variabile. 

Un costruttore set come [1, J..K], oppure un insieme non tipizzato come 
[1, 5..7], e' compatibile con un insieme PACKED o non impaccato. Una 
costante di insieme tipizzato, come DIG1TS [1, 5..7], e' compatibile 
soltanto con insiemi PACKED o non impaccati, rispettivamente come il tipo 
esplicito della costante. 


INDICATORI DI FUNZIONE 

Un indicatore di funzione specifica l'attivazione di una funzione. Esso 
e' costituito dall'identificatore di funzione, seguito da una lista 
(possibilmente vuota) di "parametri attuali” in parentesi tonde: 

{Dichiarazione della funzione ADD.} 

FUNCTION ADD (A, B: INTEGER): INTEGER; 


{Uso della funzione ADD in un'espressione.} 

X := ADD (7, X * 4) + 123; 

{ADD e' un indicatore di funzione.} 

Questi parametri attuali sostituiscono, posizione per posizione, i loro 
corrispondenti "parametri formali" definiti nella dichiarazione di 
funzione. 
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1 parametri possono essere variabili, espressioni, procedure o funzioni. 
Se la lista di parametri e' vuota, le parentesi devono essere omesse. 
(Per ulteriori informazioni sui parametri si può' vedere la sezione sui 
"Parametri di Procedure e Funzioni", nel Capitolo 15). 

L'ordine di valutazione ed associazione dei parametri attuali varia a 
seconda delle ottimizzazioni usate. Se il metacomando $SIMPLE e* 
attivato, l'ordine e' da sinistra a destra. 

Nella maggior parte dei linguaggi per calcolatori, le funzioni hano due 
usi differenti: 

1. In senso matematico, esse prendono uno o piu' valori da un dominio 
per produrre un valore risultante in un campo di variabilità'. In 
questo caso, se la funzione non fa mai altre cose (come assegnare una 
variabile globale o eseguire un input/output), e' chiamata funzione 
"pura". 

2. Il secondo tipo di funzione può' avere effetti collaterali, come la 
conversione di una variabile statica o di un file. Le funzioni di 
questo genere sono dette "impure". 

Al livello Standard, una funzione può' ritornare un tipo semplice o un 
puntatore. Al livello Esteso, una funzione può' ritornare qualunque tipo 
assegnabile (cioè' qualunque tipo tranne un file o un super array). 

Al livello Standard un puntatore ritornato da una funzione può' soltanto 
essere confrontato, assegnato o passato come un parametro valore. Al 
livello Esteso, tuttavia, e' prevista la normale sintassi di selezione 
per tipi di riferimento, array e record, preceduta dall'indicatore di 
funzione. Per ulteriori informazioni si può' vedere "Uso di Variabili e 
Valori", nel Capitolo 12. 

Esempi di indicatori di funzione: 

SIN (X+Y) 

NEXTCHAR 

NEXTREC (17) A 

{Qui la funzione ritorna un tipo puntatore, ed e' prelevato} 

{il contenuto del valore del puntatore ritornato.} 

NAD.NAME [1] 

{Qui la funzione non ha parametri. Il tipo di ritorno e 1 un record,} 
{e un campo di esso e’ un array. L'identificatore per quel campo e'} 
{NAME. L'esempio suddetto seleziona il primo componente dell'array} 
{del record ritornato,} 


E' piu' efficiente ritornare un componente di una struttura piuttosto che 
ritornare una struttura e poi usare soltanto un componente di essa. Il 
compilatore tratta una funzione che ritorna una struttura come una 
procedura, con un parametro VAR extra che rappresenta il risultato della 
funzione. La routine chiamante della funzione alloca una variabile 
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nascosta (nello stack) per ricevere il valore di ritorno, ma questa 
"variabile" e' allocata soltanto durante l'esecuzione dell'istruzione che 
contiene la chiamata di funzione. 


ESPRESSIONI DI VALUTAZIONE 


Nei casi di ambiguità', un operatore a piu' alto livello viene applicato 
prima di uno a piu' basso livello. Per esempio, la seguente espressione 
da' come risultato 7 e non 9: 

1+2*3 

Si devono usare le parentesi per cambiare la priorità' degli operatori. 
Quindi la seguente espressione da’ come risultato 9 piuttosto che 7: 

(1 + 2) * 3 

Se il metacomando $S1MPLE e' attivato, le sequenze di operatori che hanno 
la stessa priorità' sono eseguite da sinistra a destra. Se e' 
disattivato, il compilatore può' riordinare le espressioni e valutare le 
comuni sottoespressioni solo una volta, per generare un codice 
ottimizzato. La semantica delle relazioni di priorità' e' conservata, ma 
vengono usate le normali leggi associative e distributive. 

Per esempio: 

X * 3 + 12 

e' un'ottimizzazione di: 

3 * (6 + (X - 2)) 

Queste ottimizzazioni possono generare occasionalmente errori di overflow 
inaspettati. 

Per esempio: 

(1 - 100) + <J - 100) 

sara' ottimizzato in questo modo: 

(1 + J) - 200 

Ciò' può' generare un errore di overflow, anche se l'espressione di 
origine non lo generava (per esempio, se "I" e "J" sono ciascuno 16400). 

Un'espressione nel file sorgente può’ o no effettivamente essere valutata 
quando il programma e' in esecuzione. Per esempio l'espressione F (X + Y) 
* 0 e' sempre zero, perciò' non occorre eseguire la sottoespressione (X 
+ Y) e la chiamata di funzione. 

11 compilatore non ottimizza le espressioni reali (come le espressioni 



• ;v'C -, 



intere), questo serve ad assicurare che il risultato di un’espression 
reale corrisponda sempre alla semplice valutazione dell'espression 
data. 

Per esempio, l'espressione intera 
((1 + 1) - 1) * J 
e’ ottimizzata a: 

1 * J 

ma la stessa espressione con variabili reali non e' ottimizzata, poiché' 
i risultati possono essere differenti a causa della perdita di 
precisione. Le normali sottoespressioni, come 2 * X in SIN (2 * X) * COS 
(2 * X) , possono essere calcolate solo una volta e, se necessario, 
ricaricate, pero' sono salvate in una speciale precisione intermedia di 
80 bit. 

L'ordine della valutazione può' essere fissato dalle parentesi: 

(A + B) + C 

e' valutata addizionando prima A e B, ma 
A + B + C 

può' essere valutata addizionando prima A e B, B e C oppure anche A e C. 

Qualunque espressione può' essere passata come un parametro CONST o 
C0N5T5 o avere 1'"indirizzo" rilevato. L'espressione e' calcolata e 
memorizzata in una variabile temporanea nello stack, e il suo indirizzo 
può' essere utilizzato come un parametro di riferimento o in qualche 
altro contesto di indirizzo. 

Per evitare ambiguità' si deve racchiudere questa espressione, con gli 
operatori o le chiamate di funzione, tra parentesi. Per esempio, per 
richiamare una procedura si deve usare F00 (CONST X, Y: 1NTEGER), F00 (1, 
(J+14)) invece di F00 (1, J+14). 

Ciò' comporta una piccola distinzione nel caso delle funzioni. 

Per esempio: 

FUNCT10N SUM (CONST A, B: 1NTEGER): 1NTEGER; 

BEG1N 

SUM := A; 

1F B <> 0 THEN 

SUM := SUM (SUM, (SUM (B, 0) - 1)) + 1 

END; 

In questo esempio SUM e' chiamata ricorsivamente, sottraendo uno da B 
finche' B e’ zero. 

L'uso dell'identificatore di funzione in un'istruzione W1TH segue una 
regola simile. Per esempio, data una funzione,COMPLEX, senza parametri, 
che ritorna un record, "W1TH COMPLEX" significa "W1TH il valore corrente 
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della funzione". Ciò' può' verificarsi soltanto all'interno della 
funzione COMPLEX stessa. Comunque "W1TH (COMPLEX)" provoca la chiamata 
della funzione e l'assegnazione del risultato ad una variabile locale 
temporanea. 

Un altro modo per descrivere ciò' e’ nella distinzione tra "indirizzo" e 
"valore". La parte sinistra di un'assegnazione, un parametro di 
riferimento, gli operatori ADR e ADS e l’istruzione W1TH richiedono tutti 
un indirizzo. La parte destra di un'assegnazione e un parametro di valore 
richiedono tutti un valore. 

Se e' richiesto un indirizzo ma e' disponibile solo un valore (come una 
costante o un'espressione tra parentesi), il valore deve essere 
memorizzato in modo da avere un indirizzo. Per le costanti il valore va 
nella memoria statica; per le espressioni il valore va nella memoria 
stack (locale). Un identificatore di funzione rinvia al valore corrente 
della funzione come a un indirizzo, ma provoca la chiamata della funzione 
come un valore. 

Infine, nel dominio di una funzione la procedura intrinseca RESULT 
consente di riferirsi al valore corrente di una funzione invece di 
chiamarlo ricorsivamente. Per una funzione F ciò' significa che ADR F e 
ADR RESULT (F) sono la stessa cosa: l'indirizzo del valore corrente di F. 
RESULT forza l'uso del valore corrente in un modo che equivale a mettere 
la funzione tra parentesi, come in (F(X)). 


ALTRE CARATTERISTICHE DELLE ESPRESSIONI 


EVAL e RESULT sono due procedure, disponibili al livello Esteso, da usare 
con le espressioni. EVAL ottiene il risultato di una procedura da uha 
funzione; RESULT produce il valore corrente di una funzione all'interno 
di una funzione o di una procedura o funzione nidificata. 

Al livello di Sistema, la funzione RETYPE consente di cambiare il tipo di 
un valore. 


LA PROCEDURA EVAL 

EVAL valuta i suoi parametri senza chiamare realmente nulla. Generalmente 
si usa EVAL per ottenere il risultato di una procedura da una funzione. 
In tali casi, i valori ritornati dalle funzioni non interessano, quindi 
EVAL e' utile soltanto per le funzioni con effetti laterali. Per 
esempio, una funzione che fa avanzare all'elemento successivo e inoltre 
ritorna l'elemento, può' essere richiamata in EVAL solo per far avanzare 
all'elemento successivo, poiché' non occorre ottenere un valore di 
ritorno da una funzione. 





Esempi di procedura EVAL: 


EVAL (NEXTLABEL (TRUE)) 

EVAL {SIDEFUNC {X, Y), INDEX (4), COUNT) 


LA FUNZIONE RESULT 

Nel dominio di una funzione, la procedura intrinseca RESULT consente di 
rinviare al valore corrente di una funzione invece di richiamarlo 
ricorsivamente. Per una funzione F, ciò' significa che ADR F e ADR RESULT 
(F) sono la stessa cosa, cioè' l'indirizzo del valore corrente di F. 
RESULT forza l'uso del valore corrente in un modo tale che, mettendo la 
funzione tra parentesi, come in (F (X)), forza la valutazione della 
funzione. 

Esempi di funzione RESULT: 

FUNCT10N FACT0R1AL (1: 1NTEGER): 1NTEGER; 

BEG1N 

FACT0R1AL := 1; 

WH1LE 1 > DO 
BEG1N 

FACTORIAL := 1 * RESULT {FACTORIAL); 

I := 1 - 1 
END 
END; 

FUNCT10N ABSVAL (1: 1NTEGER): 1NTEGER; 

BEG1N 

ABSVAL := 1; 

1F I < 0 THEN ABSVAL := -RESULT (ABSVAL) 

END; 


LA FUNZIONE RETYPE 

A volte occorre trasformare il tipo di un valore. Ciò' può' essere 
eseguito con la funzione RETYPE, disponibile al livello di Sistema del 
Pascal. Se il nuovo tipo e' una struttura, RETYPE può' essere seguita 
dalla normale sintassi di selezione. Si deve usare RETYPE con cautela: 
essa opera sulla memoria a livello di byte e ignora se l'ordine inferiore 
dei byte di un numero a due byte venga prima o dopo in memoria. 

Esempi di funzione RETYPE: 

RETYPE (COLOR, 3) {inverso di ORD} 

RETYPE (STR1NG2, 1 * J + K) [2] {il risultato può' variare} 
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14. ISTRUZIONI 





SOMMARIO 


Le istruzioni indicano le azioni che il programma può' eseguire. 

Questo capitolo prima illustra la sintassi delle istruzioni Pascal, poi 
distingue e descrive le due categorie di istruzioni: semplici e 
strutturate. 
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ISTRUZIONI 


INTRODUZIONE 

Il corpo di un programma, procedura o funzione contiene delle istruzioni. 
Le istruzioni indicano le azioni che il programma può' eseguire. 
Esistono due categorie di istruzioni: semplici e strutturate. 
Un’istruzione semplice non contiene parti che sono esse stesse altre 
istruzioni; un'istruzione strutturata e' costituita da due o piu' 
istruzioni. 

La tabella 14-1 elenca le istruzioni in ciascuna categoria del Pascal. 


Semplice 


Strutturata 


Assegnazione (:=) 

Procedura 

GOTO 

BREAK 

CYCLE 

RETURN 

Vuota . 


Composta 

1F/THEN/ELSE 

CASE 

FOR 

WH1LE 

REPEAT 

W1TH 


Tabella 14-1 Istruzioni del Pascal 


LA SINTASSI DELLE ISTRUZIONI PASCAL 


Le istruzioni Pascal sono separate da un punto e virgola (;) e comprese 
tra parole riservate come BEG1N e END. Un'istruzione può' iniziare con 
una etichetta. Ciascuno di questi tre elementi della sintassi di 
istruzioni vengono descritti nelle sezioni che seguono. 


ETICHETTE 

Qualunque istruzione indicata da un'istruzione GOTO deve avere una 
etichetta. Al livello Standard, una etichetta e' costituita da una o 
piu' cifre; gli zeri iniziali sono ignorati. Identificatori di costante, 
espressioni e notazione non decimale non sono considerati etichette. 

Tutte le etichette devono essere dichiarate in una sezione LABEL. Al 
livello Esteso un'etichetta può' anche essere un identificatore. 








Esempio di uso di etichette e di istruzioni GOTO: 

PROGRAM LOOPS (INPUT, OUTPUT); 

LABEL 1, HAWAII, MAINLAND; 

BEGIN 

MAINLAND: GOTO 1; 

HAWAII: WR1TELN ('Qui io sono in Hawaii’); 

1: GOTO HAWAII 
END. 

Si definisce etichetta di ciclo (di loop) qualunque etichetta che precede 
immediatamente un'istruzione ciclica: WH1LE, REPEAT o FOR. Al livello 
Esteso, un'istruzione BREAK o CYCLE può' anche indicare un'etichetta di 
ciclo. 

Un’istruzione può' essere preceduta sia da una lista di costanti CASE che 
da un'etichetta GOTO; in questo caso vengono prima le costanti CASE e poi 
l’etichetta GOTO. Nel seguente esempio, 321 e' un valore CASE, 123 e' 
un'etichetta: 

321: 123: 1F LOOP THEN GOTO 123 


SEPARAZIONE DI ISTRUZIONI 

Le istruzioni sono separate da punti e virgola. 1 punti e virgola non 
fanno terminare le istruzioni. Comunque, poiché' il Pascal consente 
l'istruzione vuota, non e' quasi mai sbagliato usare il punto e virgola 
come carattere finale di un'istruzione. 

Esempio di punto e virgola per separare istruzioni: 

BEGIN 

10: WRITELN; 

A := 2 + 3; 

GOTO 10 
END 

Un errore comune e' quello di far terminare la clausola THEN in 
un'istruzione 1F/THEN/ELSE con un punto e virgola. 11 seguente esempio 
genera un messaggio di avvertimento: 

1F A = 2 THEN WRITELN; 

ELSE A := 3 

Un altro errore comune e' quello di mettere un punto e virgola dopo il DO 
in un'istruzione WH1LE o FOR: 

FOR I := 1 T0 10 DO; 

BEGIN 

A[1] := I; 

B[l] := 10 - 1 
END; 
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L'esempio precedente, cosi' come scritto, "esegue" per dieci volte 
un'istruzione vuota, poi esegue le assegnazioni dell'array per una volta. 
Poiché' vi sono facoltativi usi consentiti per ripetere un'istruzione 
vuota, quando ciò' si verifica non viene dato alcun segnale di 
avvertimento. 

11 punto e virgola segue anche la parola riservata END in chiusura di un 
blocco di istruzioni di programma. 


LE PAROLE RISERVATE BEG1N E END 

Ogni volta che si vuole far eseguire ad un programma un gruppo di 
istruzioni, invece di una singola istruzione semplice si può' racchiudere 
il blocco tra le parole riservate BEG1N e END. 

Per esempio, il seguente gruppo di istruzioni fra BEG1N e END viene tutto 
eseguito se la condizione nell'istruzione 1F e' TRUE: 

1F (MAX > 10) THEN 
BEG1N 
MAX = 10; 

MIN = 0; 

WR1TELN (MAX, MIN) 

END; 

WR1TELN ('eseguito') 

Al livello Esteso si può' sostituire una coppia di parentesi quadre con 
la coppia di parole chiave BEG1N e END. 


ISTRUZIONI SEMPLICI 

Un'istruzione si dice semplice se nessuna sua parte costituisce un'altra 
istruzione. Le istruzioni semplici nel Pascal Standard sono: 

l'istruzione di assegnazione 

l'istruzione di procedura 

l'istruzione GOTO 

l'istruzione vuota 


L'istruzione vuota non contiene alcun simbolo e non indica alcuna azione. 
Essa e' inclusa nella definizione del linguaggio principalmente per 
permettere di usare un punto e virgola dopo l'ultima di un gruppo di 
istruzioni comprese tra BEGIN e END. 


I 


Il livello Esteso del Pascal aggiunge tre istruzioni semplici: BREAK, 
CYCLE e RETURN. 




ISTRUZIONI DI ASSEGNAZIONE 


L'istruzione di 'assegnazione sostituisce il valore corrente di una 
variabile con un nuovo valore, che viene specificato come un'espressione. 
Un'assegnazione si distingue per i caratteri di due punti e uguale 
adiacenti (:=). 

Esempi di istruzioni di assegnazione: 

A := B 

A[l] := 12 * 4 + (B * C) 

X : = Y 

{Non consentito. 1 segni di due punti (:) ed uguale (=)} 

{devono essere adiacenti.} 

A + 2 := B 

{Non consentito. A + 2 non e' una variabile.} 

A := ADD (1,1) 

11 valore di un'espressione deve essere compatibile per l'assegnazione 
con il tipo della variabile. La selezione della variabile può' comportare 
l'indicizzazione di un array o il prelevamento del contenuto di un 
indirizzo o puntatore: in questo caso il compilatore può', a seconda 
dell'ottimizzazione eseguita, mescolare queste azioni con la valutazione 
dell'espressione. Se il metacomando $SIMPLE e' attivato, l'espressione e' 
valutata per prima. 

L'assegnazione ad una variabile non locale (comprendendo quella di 
ritorno da una funzione) mette un segno di uguale (=) o di percento (%) 
nella colonna G del listing. (Per ulteriori informazioni su questi e 
altri simboli usati nel listing, si può' vedere "Formato del Listing", 
nel Capitolo 19). 

All'interno del blocco di una funzione, un'assegnazione 
all'identificatore di funzione stabilisce il valore ritornato dalla 
funzione. L'assegnazione ad un identificatore di funzione può' avvenire 
all'interno del corpo effettivo della funzione o nel corpo di una 
procedura o funzione nidificata in essa. 

Se il controllo di variabilità' e' attivato, un'assegnazione ad una 
variabile set, subrange o L5TRING può' comportare una chiamata di runtime 
al codice di controllo dell'errore. 

Conformemente all’ottimizzazione del Pascal, ciascuna sezione di codice 
senza etichetta o altro punto che può' ricevere controllo, e' utile per 
riordinare e per eliminare sottoespressioni comuni. Naturalmente 
l'ordine di esecuzione, quando e ! necessario, viene conservato. 
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Date queste istruzioni, 

X := A + C + B; 

Y := A + 8; 

1 := A 

il compilatore può' generare codice per eseguire le seguenti operazioni: 

prendere il valore di A e salvarlo 
-• aggiungere il valore di B e salvare il risultato 
aggiungere il valore di C ed assegnarlo a X 
assegnare a Y il valore salvato A + B 
assegnare a Z il valore salvato A 

Questa ottimizzazione avviene soltanto se le assegnazioni a X e a Y e 
il raggiungimento dei valori di A, B o C sono indipendenti. Se C e' una 
funzione senza l'attributo PURE, e A e' una variabile globale, la 
valutazione di C può' trasformare A. Quindi, poiché' l'ordine di 
valutazione all'interno di un'espressione in questo caso non e' fissato, 
il valore di A nella prima assegnazione può’ essere sia il valore vecchio 
che quello nuovo. Tuttavia, poiché' l'ordine di valutazione delle 
istruzioni e' fissato, il valore di A nella seconda e terza assegnazione 
e' quello nuovo. 

Le seguenti azioni possono limitare la capacita' dell'ottimizzatore di 
trovare comuni sottoespressioni: 

assegnazione ad una variabile non locale 

assegnazione ad un parametro di riferimento 

assegnazione al referente di un puntatore 

assegnazione al referente di una variabile indirizzo 

chiamata di una procedura 

chiamata di una funzione senza l'attributo PURE 


L'ottimizzatore consente degli "pseudonimi", cioè' una singola variabile 
con due identificatori, ad esempio uno come variabile globale e uno come 
parametro di riferimento. 




ISTRUZIONI DI PROCEDURA 


Un'istruzione di procedura esegue la procedura indicata 
dall'identificatore di procedura. 

Per esempio, se si e' definita la procedura D0_IT: 

PROCEDURE D0_IT; 

BEGIN 

WRITELN ('Did it’ ) 

END; 

DO IT e' ora un'istruzione che può' essere eseguita semplicemente 
chiamando il suo nome: 

DOJT 

Se si dichiara la procedura con una lista di parametri formali, 
l'istruzione di procedura deve includere i parametri attuali. 

Il Pascal include un grande numero di procedure predichiarate. Per una 
completa informazione si può' vedere il Capitolo 16, "Procedure e 
Funzioni Disponibili". Una delle procedure predichiarate e' ASS1GN; non 
occorre dichiararla prima di poterla usare. 

ASS1GN (INF ILE, 'MYF1LE') 

Si deve osservare che la procedura ASSIGN contiene una lista di 
parametri. Questi parametri sono i parametri attuali che sono legati a 
quelli formali nella dichiarazione di procedura. Per una descrizione dei 
parametri formali e di riferimento si può' vedere la sezione "Parametri 
di Procedure e Funzioni", nel Capitolo 15. 


L'ISTRUZIONE GOTO 

Un'istruzione GOTO indica che la successiva elaborazione continua in 
un'altra parte del testo di programma, cioè' nel punto in cui e' 
l'etichetta. Si deve dichiarare una LABEL nella sezione dichiarativa 
LABEL, prima di usarla in un'istruzione GOTO. 

Vi sono numerose limitazioni per l'uso delle istruzioni GOTO: 

Una GOTO non deve saltare in un'istruzione nidificata piu' 
internamente, cioè' in un'istruzione 1F, CASE, WH1LE, REPEAT, FOR o 
WITH. Sono consentite istruzioni GOTO da un settore all'altro di 
un'istruzione IF o CASE. 

E' consentita una GOTO da una procedura o funzione ad un'etichetta 
nella parte principale di un programma o nel livello superiore di una 
procedura o funzione. Una GOTO può' saltare da una di queste 
istruzioni, ma in questo caso l'istruzione sta direttamente entro il 
corpo della procedura o funzione. Tuttavia un tale salto genera un 
codice supplementare nella locazione della GOTO e nella locazione 
dell'etichetta. La GOTO e l'etichetta devono essere nella stessa 
unita’ compilativa poiché' alle etichette, a differenza delle 
variabili, non può' essere assegnato l'attributo PUBLIC. 
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1 seguenti sono esempi di istruzioni GOTO, consentite e non: 


PROGRAM LABEL_EXAMPLES; 

LABEL 1, 2, 3, 4; 

PROCEDURE ONE; 

LABEL 11, 12, 13; 

PROCEDURE 1N_0NE; 

LABEL 21 ; 

{Le GOTO di livello esterno non possono saltare a 21.} 

BEG1N 

1F TUESDAY THEN GOTO 1 
ELSE GOTO 11; 

{l e 11 sono entrambe etichette valide di livello esterno.} 
21: WR1TE (* IN ONE 1 ) 

END; 

BEGIN {Procedura uno} 

1F RA1N1NG THEN GOTO 1 ELSE GOTO 11; 

{Consentito} 

11 : GOTO 21 

{Non consentito. Non si può' saltare in procedure di} 

{livello piu' interno.} 

END; 

PROCEDURE TWO; 

BEGIN 
GOTO 11 

{Non consentito. Non si può' saltare in procedure differenti} 
{allo stesso livello.} 

END; 

BEGIN {Livello principale} 

1F SEATTLE 
THEN 
BEGIN 
GOTO 2; 

{E* corretto andare a 2 a livello di programma.} 

4: URITE ('here') 

END 

ELSE GOTO 4; 

{E' corretto saltare nella clausola THEN.} 

2: GOTO 3; 

{Non consentito. Non si può' saltare in un'istruzione REPEAT.} 
REPEAT 

WH1LE MS_BYR0N DO 
3: GOTO 2 

{E' corretto saltare fuori dai cicli.} 

UNT1L DATE; 

1 -.GOTO 11 

{Non consentito. Non si può' saltare nella procedura da} 
{programma.} 



Se il metacomando $G0T0 e' attivo, ogni istruzione GOTO e' identificata 
con un segnale di avvertimento che ricorda che "le istruzioni GOTO sono 
considerate dannose". Ciò' può' essere utile a scopo didattico o per 
trovare tutte le istruzioni GOTO in un programma al fine di localizzare 
un errore. La colonna J (jumps) del listing contiene: 

Un segno piu' {+) o un asterisco {*), che segnalano un'istruzione 
GOTO a un'etichetta in una parte successiva del listing. 

Un segno meno (-) o un asterisco (*), che segnalano un'istruzione 
GOTO a un’etichetta già' incontrata nel listing. 

Per maggiori dettagli sui listing si può' vedere "Formato del Listing", 
nel Capitolo 19. 


LE ISTRUZIONI BREAK, CYCLE E RETURN 

Al livello Esteso sono consentite le istruzioni BREAK, CYCLE e RETURN, 
oltre alle istruzioni semplici già' descritte. Queste istruzioni compiono 
le seguenti funzioni: 

1. BREAK permette di uscire dal ciclo di esecuzione in corso. 

2. CYCLE permette di uscire dall'iterazione corrente di un ciclo e da' 
inizio all'iterazione successiva. 

3. RETURN permette di uscire dalla procedura, funzione, programma o 
implementazione in corso. 

Tutte e tre queste istruzioni sono funzionalmente equivalenti ad 

un'istruzione GOTO. 

1. Un'istruzione BREAK e' una GOTO alla prima istruzione che segue 

un'istruzione ripetitiva. 

2. Un'istruzione CYCLE e' una GOTO ad un'implicita istruzione vuota 

seguente il corpo di un'istruzione ripetitiva. Questo salto da' 
inizio alla successiva iterazione di un ciclo. In un'istruzione 
WH1LE o REPEAT, CYCLE esegue il controllo booleano nella clausola 
WH1LE o UNT1L prima di eseguire nuovamente l'istruzione; in 

un'istruzione FOR, CYCLE va al valore successivo della variabile di 
controllo. 

3. Un'istruzione RETURN e' una GOTO ad un’implicita istruzione vuota 

seguente l'ultima istruzione nella procedura o funzione in corso, o 
nel corpo di un programma o implementazione. 

La colonna J (jumps) del listing contiene un segno piu' (+) o un 
asterisco (*) per un'istruzione BREAK, un segno meno (-) o un asterisco 
(*) per un'istruzione CYCLE, e un asterisco (*) per un'istruzione RETURN. 
(Per ulteriori informazioni sui listing si può' vedere "Formato del 
Listing", nel Capitolo 19). 
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BREAK e CYCLE hanno due forme, una con un'etichetta di ciclo e una senza. 
Se si da' un'etichetta di ciclo, l'etichetta identifica il ciclo per 
uscire o reiniziare. Se non si da' un'etichetta, si considera il ciclo 
piu’ interno, come indicato nel seguente esempio: 

OUTER: FOR 1 := 1 TO NI DO 
1NNER: FOR J := 1 TO N2 DO 
IF A [1, J] = TARGET THEN BREAK OUTER; 


ISTRUZIONI STRUTTURATE 

Le istruzioni strutturate sono composte esse stesse da altre istruzioni. 
Vi sono quattro tipi di istruzioni strutturate: 

1. istruzioni composte 

2. istruzioni condizioanli 

3. istruzioni ripetitive 

4. istruzioni W1TH 

Il livello di controllo e' mostrato nella colonna C (control) del 
Iisting. 11 valore nella colonna C e' incrementato ogni volta che il 
controllo passa a un'istruzione nidificata; al contrario, questo valore 
e' diminuito ogni volta che il controllo ritorna all'istruzione 
nidificata. Ciò 1 e' utile per individuare un END mancante o 
supplementare nel programma. 

ISTRUZIONI COMPOSTE 

L'istruzione composta e' una sequenza di istruzioni semplici, compresa 
tra le parole riservate BEG1N e END. 1 componenti di un'istruzione 
composta eseguono nella stessa sequenza in cui appaiono nel file 
sorgente. 



Esempi di istruzioni composte: 

BEG1N 

TEMP := A [1]; 

A[l] := A [J]; 

A[J] := TEMP 

{il punto e virgola qui non e’ necessario.} 

END 

BEG1N 

0PEN_D00R; 

L ET_EM_!N; 

CL0SE_D00R; 

{il punto e virgola significa istruzione vuota.} 

END 

Tutte le strutture di controllo condizionali e ripetitive del Pascal 
(tranne REPEAT) operano su una singola istruzione, non su istruzioni 
multiple con separatori finali. In questo contesto, BEG1N e END servono 
da punteggiatura, come il punto e virgola, i due punti o le parentesi. 
Se si preferisce, si può' sostituire una coppia di parentesi quadre alla 
coppia di parole riservate BEG1N e END. Si deve osservare che una 
parentesi quadra destra (]) corrisponde solo ad una parentesi quadra 
sinistra ([), non un BEG1N, CASE o RECORD. In altre parole, la parentesi 
destra non e' sinonimo di END. 

Le parentesi quadre non devono essere usate come sinonimi di BEG1N e END 
per racchiudere il corpo di un programma, implementazione, procedura o 
funzione; solo BEG1N e END possono essere usati per questo scopo. 

Esempi di parentesi quadre che sostituiscono BEG1N e END: 

1F FLAG THEN [X := 1; Y := -1] 

ELSE [X := -1; Y := 0]; 

WH1LE P.N <> N1L DO 

[Q := P; P := P.N; DISPOSE (Q) ]; 

FUNCT10N R2 (R: REAL): REAL; 

[R2 := R * 2] 

{Non consentito.} 


ISTRUZIONI CONDIZIONALI 

Un'istruzione condizionale seleziona, per l'esecuzione, solo una delle 
sue istruzioni componenti. Le istruzioni condizionali sono 1F e CASE. Si 
usa l'istruzione 1F per una o due condizioni, l’istruzione CASE per piu' 
condizioni. 
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L'Istruzione 1F 

I 

L'istruzione 1F consente l'esecuzione condizionale di un'istruzione. Se 
l'espressione booleana seguente l'IF e' vera, viene eseguita l'istruzione 
seguente il THEN. Se l'espressione booleana seguente l'IF e’ falsa, viene 
eseguita l'istruzione seguente l’ELSE, se questa e' presente. 

Esempi di istruzioni 1F: 

1F 1 > 0 THEN 1 := 1 - 1 ! 

{11 punto e virgola qui non occorre.} i 

ELSE 1 := 1 + 1 | 


1F (1 <= TOP) AND (ARRI [1] <> TARGET) THEN 1 := 1 + 1 
1F 1 <= TOP THEN 

IF ARRI [I] <> TARGET THEN 1 := 1 + 1 
1F 1 = 1 THEN 

1F J = 1 THEN WRITELN ('1 equals J’) 

ELSE WRITELN ('DONE only if 1 = 1 and J <> 1') 

{Questo ELSE corrisponde all'lF nidificato piu' internamente.} 
{Quindi il secondo WR1TELN e' eseguito solo sel=1eJ<>1.} 

IF 1 = 1 THEN BEG1N 

IF J = 1 THEN WRITELN ('1 equals J') 

END 

ELSE WRITELN ('DONE only if I <> 1') 

{Ora l'ELSE e 1 accoppiato con il primo IF, poiché' la seconda} 
{istruzione IF e' messa tra parentesi dalla coppia BEG1N/END.} 
{Quindi il secondo WRITELN e' eseguito se 1 <> 1.} 

Un punto e virgola (;) seguito dall'ELSE e' sempre scorretto. Il 
compilatore lo salta durante la compilazione ed emette un messaggio di 
avvertiemnto. 

L'espressione booleana seguente un IF può' includere gli operatori di 
controllo sequenziale descritti in "Controllo Sequenziale", piu' oltre in 
questo stesso capitolo. 


L 1 Istruzione CASE 

L'istruzione CASE e' costituita da un'espressióne (chiamata indice di 
CASE) e da una lista di istruzioni. Ciascuna istruzione e' preceduta da 
una lista di costanti, denominata lista di costanti CASE. L'istruzione 
eseguita e' quella la cui lista di costanti CASE contiene il valore 
corrente dell'indice CASE. L'indice CASE e tutte le costanti devono 
essere di tipi ordinali compatibili. 
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Esempi di istruzioni CASE: 


CASE OPERATOR OF 
PLUS: X := X + Y; 

M1NUS: X := X - Y; 

TIMES: X := X * Y 
END; 

{OPERATOR e' l'indice CASE. PLUS, M1NUS e TIMES sono costanti CASE.} 
{In questo esempio, essi sono tutti i valori che possono essere} 
{assunti dalla variabile enumerata OPERATOR.} 

CASE NEXTCH OF 

’A'..’Z 1 , : IDENTIF1ER; 

'+’, : OPERATOR; 

{Le virgole separano le costanti CASE e i campi di variabilità'} 
(delle costanti CASE.} 

OTHERWISE WRITE CUnknown Character') 

{Cioè', se si tratta di qualunque altro carattere} 

END; 

La sintassi della costante CASE e' la stessa delle dichiarazioni di 
RECORD con varianti. Nel Pascal Standard una costante CASE e' formata da 
una o piu' costanti separate da virgole. Al livello Esteso, si può' 
sostituire un campo di costanti, come 'A'.. ’Z T con una costante. Nessun 
valore costante si può' applicare a piu' di un'istruzione. Il livello 
Esteso consente anche all'istruzione CASE di terminare con una clausola 
OTHERWISE. La clausola OTHERWISE contiene istruzioni addizionali da 
eseguire se il valore dell'indice CASE non sta nell'insieme dato di 
valori costanti di CASE. Se il valore dell'indice CASE non sta 
nell'insieme e se non e' presente alcuna clausola OTHERWISE, si verifica 
una delle due cose: 

Se il controllo di variabilità' e' attivo, si genera un errore di 
runtime. 

Se il controllo di variabilità' non e' attivo, il risultato non e' 
definito (e può' essere catastrofico). 

Nel Pascal il controllo non passa automaticamente alla successiva 
istruzione eseguibile, come nel Pascal UCSD e in qualche altro 
linguaggio. Se si vuole ottenere questo effetto, si deve includere una 
clausola OTHERWISE vuota. 

Un punto e virgola (;) può' essere presente dopo l'istruzione finale 
della lista, ma non e' richiesto. Il compilatore salta un segno di due 
punti (:) dopo un OTHERWISE ed emette un segnale di avvertimento. 

A seconda dell'ottimizzazione, il codice generato dal compilatore per 
un'istruzione CASE può' essere costituito da una "tabella di salto" o da 
serie di confronti (o da entrambi). Se si tratta di una tabella di 
salto, si può' verificare un salto ad una locazione arbitraria in 
memoria, se la variabile di controllo e' esterna al campo di variabilità' 
e il controllo di variabilità' non e' attivo. 
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ISTRUZIONI DI RIPETIZIONE 


Le istruzioni di ripetizione specificano la ripetuta esecuzione di 
un'istruzione. Nel Pascal Standard esse includono le istruzioni WHILE, 
REPEAT e FOR. 

A livello Esteso del Pascal, vi sono due istruzioni addizionali, BREAK e 
CYCLE, per permettere o reiniziare la ripetizione delle istruzioni. 
Queste istruzioni sono funzionalmente equivalenti ad una GOTO, ma sono 
piu' facili da usare. 


L'Istruzione WHILE 

L'istruzione WHILE ripete un'istruzione zero o piu' volte, finche* 
un'espressione booleana diventa falsa. 

Esempi di istruzioni WHILE: 

WHILE P <> N1L DO P := NEXT (P) 

WHILE NOT M1CKEY DO 
BEG1N 
NEXTM0U5E; 

M1CE := M1CE + 1 
END 

L'espressione booleana in un'istruzione WHILE può' includere gli 
operatori di controllo sequenziale descritti in "Controllo Sequenziale", 
piu’ avanti in questo capitolo. 

Si usa WHILE se non e' necessaria alcuna iterazione del ciclo; si usa 
REPEAT dove ci si aspetta la richiesta di almeno una iterazione del 
ciclo. 


L'Istruzione REPEAT 

L'istruzione REPEAT ripete una sequenza di istruzioni una o piu' volte, 
finche' un'espressione booleana diventa vera. 

Esempi di istruzioni REPEAT: 

REPEAT 

READ (L1NEBUFF); 

COUNT := COUNT + 1 
UNT1L EOF; 

REPEAT GAME UNT1L TIRED; 

L'espressione booleana in un'istruzione REPEAT può' includere gli 
operatori di controllo sequenziale descritti in "Controllo Sequenziale", 
piu' avanti in questo capitolo. 




Si usa l’istruzione REPEAT per eseguire istruzioni, non soltanto una 
volta ina una o piu’ volte, finche' una condizione diventa vera. Si può' 
osservare la differenza rispetto all'istruzione UH1LE, in cui una singola 
istruzione può' anche non essere eseguita affatto. 


L'Istruzione FOR 

L'istruzione FOR ordina al compilatore di eseguire un'istruzione 
ripetutamente mentre ad una variabile, denominata variabile di controllo 
dell'istruzione FOR, e' assegnata una progressione di valori. 1 valori 
assegnati iniziano e terminano con un valore chiamato rispettivamente 
iniziale e finale. 

L'istruzione FOR ha due forme, una in cui la variabile di controllo 
aumenta di valore ed una in cui questa diminuisce: 

FOR 1 := 1 TO 10 DO 

{l e' la variabile di controllo.} 

SUM := SUM + V1CTORVECTOR [1] 

FOR CH := 'Z' D0WNT0 'A' DO 

{CH e' la variabile di controllo.} 

WR1TE (CH) 

Si può' usare anche un'istruzione FOR per eseguire passo per passo la 
valutazione di un insieme, come qui descritto: 

FOR T1NT := 

LOWER (SHADES) TO UPPER (SHADES) DO 
1F T1NT IN SHADES 
THEN PA1NT_AREA (T1NT); 

Lo standard ISO fornisce regole esplicite riguardo la variabile di 
controllo nelle istruzioni FOR: 

1. Deve essere di un tipo ordinale 

2. Deve anche essere una variabile intera, non un componente di una 
struttura. 

3. Deve essere locale al programma, procedura o funzione che la 
comprendono direttamente, e non può' essere un parametro di 
riferimento della procedura o funzione. 

Comunque, al livello Esteso del Pascal, la variabile di controllo 
può' anche essere una variabile STAT1C, come una variabile dichiarata 
a livello di programma, a meno che la variabile non abbia l’attributo 
segmentato 0R1G1N. L'uso di una variabile a livello di programma e' 
un errore ISO non rilevato. 

4. Nell'istruzione ripetuta non e' consentita alcuna assegnazione alla 

variabile di controllo. Questo errore e' rilevato facendo il 

READONLY della variabile di controllo entro l'istruzione FOR; non e’ 
rilevato quando una procedura o funzione richiamata dall'istruzione 
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ripetuta altera la variabile di controllo. La variabile di controllo 
non può 1 essere passata come un parametro VAR (o VAR5) ad una 
procedura o funzione. 

5. 1 valori iniziali e finali della variabile di controllo devono essere 

compatibili con il tipo della variabile di controllo. Se l'istruzione 
e' eseguita, i valori iniziali e finali devono anche essere 
compatibili per l'assegnazione con la variabile di controllo. 

Dapprima e' sempre valutato il valore iniziale, poi quello finale. 
Entrambi sono valutati soltanto una volta prima che l'istruzione sia 
eseguita. 

L'istruzione seguente il DO non e' affatto eseguita se: 

il valore iniziale e' maggiore del valore finale nel caso TO. 

il valore iniziale e' minore del valore finale nel caso DOWNTO. 

La sequenza di valori, data la variabile di controllo, parte con il 
valore iniziale. Tale sequenza e' definita con la funzione SUCC per il 
caso TO o con la funzione PRED per il caso DOWNTO fino all'ultima 
esecuzione dell'istruzione, quando la variabile di controllo assume il 
suo valore finale. 11 valore della variabile di controllo, dopo che 
un'istruzione FOR termina naturalmente, non e' definito (anche se non e' 
eseguito il corpo). Esso può' variare a causa dell'ottimizzazione e, se 
il metacomando $1N1TCK e' attivo, può' essere posizionato ad un valore 
non inizializzato. Tuttavia il valore della variabile di controllo, dopo 
aver interrotto un'istruzione FOR con GOTO o BREAK, e' definito come il 
valore da essa raggiunto al momento dell'uscita dal ciclo. 

Nel Pascal Standard il corpo di un'istruzione FOR può' essere o no 
eseguito; quindi e' necessaria un controllo per vedere se esso viene 
eseguito. Tuttavia, se la variabile di controllo e' di tipo WORD (o 

subrange) e il suo valore iniziale e' una costante zero, il corpo deve 
essere eseguito qualunque sia il valore finale. In questo caso, non 

occorre eseguire alcun controllo supplementare e non e' generato alcun 
codice per eseguire un tale controllo. Inoltre una variabile di 

controllo con attributo STAT1C può' essere piu' efficiente di una senza 
tale attributo. 

Al livello Esteso del Pascal si possono usare variabili di controllo 
temporanee: 

FOR VAR <variabile di controllo 

Con il prefisso VAR la variabile di controllo e' dichiarata locale 

all'istruzione FOR (cioè', ad una visibilità' di piu' basso livello) e 
non occorre dichiararla in una sezione VAR. Tale variabile di controllo 
non e' disponibile al di fuori dell'istruzione FOR, e qualunque altra 
variabile con lo stesso identificatore non e' disponibile all'interno 
dell'istruzione FOR stessa. Altre variabili sinonime sono, comunque, 
disponibili alle procedure o funzioni richiamate all'interno 
dell'istruzione FOR. 




Esempi di variabili di controllo temporanee: 


FOR VAR I := 1 TO 100 DO 
SUM := SUM + VICTOR [1] 

FOR VAR COUNTDOUN := 10 DOWNTO L1FT_0FF DO 
MONITOR ROCKET 


Le Istruzioni BREAK e CYCLE 

In teoria, un programma che usa le istruzioni BREAK e CYCLE del Pascal di 
livello Esteso può' non usare alcuna istruzione GOTO. 

Ciascuna di queste due istruzioni ha due forme, una con una etichetta di 
ciclo e una senza. Un'etichetta di ciclo e' una normale etichetta GOTO 
come prefisso ad un'istruzione FOR, UH1LE o REPEAT. Poiché', al livello 
Esteso, e' possibile usare etichette di identificatori, si consiglia di 
usare interi per le etichette indicate dalle istruzioni GOTO e dagli 
identificatori per le etichette di ciclo. 

Esempi di istruzioni CYCLE e BREAK: 

LABEL SEARCH, CL1MB; 


SEARCH : UH1LE 1 <= 1_T0P DO 
1F PILE [1] = TARGET THEN BREAK SEARCH 
ELSE I := I + 1; 


FOR I := 1 TO N DO 

1F NEXT [1] = N1L THEN BREAK; 


CL1MB : WH1LE NOT 1TEMA.LEAF DO 
BEG1N 

1F ITEMA.LEFT <> NIL 

THEN [ITEM : = 1TEMA.LEFT; CYCLE CLIMB]; 
1F 1TEMA. R1GHT <> NIL 

THEN [ITEM := 1TEMA.R1GHT; CYCLE CLIMB]; 
URITELN ('Very strange node'); 

BREAK CLIMB 
END; 


L'Istruzione UITH 

L'istruzione UITH apre il dominio di un'istruzione fino ad includere i 
campi di uno o piu' record, in modo che ci si possa riferire direttamente 
ai campi. Per esempio le seguenti istruzioni sono equivalenti: 

UITH PERSON DO URITE (NAME, ADDRESS, PHONE) 

URITE (PERSON.NAME, PERSON.ADDRESS, PERSON.PHONE) 
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Il record dato può* essere una variabile, un identificatore di costante, 
una costante strutturata o un identificatore di funzione; non può' essere 
un componente di una struttura PACKED. Se si usa un identificatore di 
funzione, esso si riferisce alla variabile del risultato della funzione 
locale. Se il record dato in un'istruzione WITH e’ una variabile di 
buffer di file, il compilatore emette un segnale di avvertimento, poiché' 
il cambiamento della posizione in un'istruzione WITH può' causare un 
errore. 

11 record dato può' anche essere una qualunque espressione tra parentesi, 
nel qual caso l'espressione e’ valutata e il risultato e' assegnato ad 
una variabile temporanea (nascosta). Se si vuole valutare un indicatore 
di funzione, lo si deve racchiudere tra parentesi. 

Dopo il WITH si può* dare una lista di record separati da virgole. 
Ciascun record della lista deve essere di tipo differente da tutti gli 
altri, poiché' gli identificatori di campo si riferiscono soltanto 
all'ultima istanza ‘del record tramite il tipo. Le seguenti istruzioni 
sono equivalenti: 

WITH PMODE, QMODE DO istruzione 

WITH PMODE DO WITH QMODE DO istruzione 

Ogni variabile record di un'istruzione WITH che e' componente di un'altra 
variabile, e' selezionata prima dell'esecuzione dell'istruzione. Le 
variabili attive WITH non devono essere passate come parametri VAR o 
VAR5, e i loro puntatori non possono essere passati alla procedura 
DISPOSE. Comunque questi errori non sono rilevati dal compilatore. Sono 
consentite le assegnazioni a qualunque variabile record nella lista WITH 
o alle componenti di queste variabili, ma in questo caso il record WITH 
deve essere una variabile. 

In Pascal ogni istruzione WITH alloca una variabile indirizzo che 
possiede l'indirizzo del record. Se la variabile record e' nello heap, il 
puntatore ad essa non deve essere "DISPOSE" entro l’istruzione WITH. Se 
la variabile record e' un buffer di file, non deve essere fatto alcun 1/0 
nel file all'interno dell'istruzione WITH. Occorre evitare assegnazioni 
all'istruzione WITH nel record stesso nei programmi destinati ad essere 
portabili. 


CONTROLLO SEQUENZIALE 

Per aumentare la velocita 1 di esecuzione o assicurare una corretta 
valutazione e’ spesso utile, nelle istruzioni IF, WHILE e REPEAT 
considerare le espressioni booleane come una serie di prove. Se una prova 
fallisce, le altre prove non sono eseguite. In Pascal sono previsti due 
operatori di livello Esteso per tali prove: 

1. AND THEN 

X AND THEN Y e' falso se X e' falso; Y e' valutato solto se X e' 
vero. 







2. OR ELSE 


X OR ELSE Y e' vero se X e' vero; Y e’ valutato solto se X e* falso. 

Se si usano diversi operatori di controllo sequenziale, il compilatore li 
valuta esattamente da sinistra a destra. 

Si possono solo includere questi operatori nell'espressione booleana di 
una clausola 1F, WHILE o UNT1L; essi non possono essere usati in altre 
espressioni booleane. Inoltre non possono essere inclusi tra parentesi e 
sono valutati dopo tutti gli altri operatori. 

Esempi di operatori di controllo sequenziale: 

1F SYM <> N1L ANO THEN SYMA. VAL < 0 THEN 
NEXT^SYMBOL 

WHILE 1 <= MAX ANO THEN VECT [1] <> KEY DO 
1 := 1 + 1 ; 

REPEAT GEN (VAL) 

UNT1L VAL = 0 OR ELSE (QU D1V VAL) = 0; 

WHILE POOR AND THEN GETT1NG_P00RER 
OR ELSE BROKE AND THEN BANKRUPT DO 
GET R1CH 
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INTRODUZIONE 


Le procedure e le funzioni agiscono come sottoprogrammi che vengono 
eseguiti sotto il controllo di un programma principale. Tuttavia, a 
differenza dei programmi, le procedure e le funzioni possono essere 
nidificate tra loro e possono 0 addirittura richiamare se stesse. Inoltre 
esse presentano una sofisticata capacita' di passare i parametri, che 
manca ai programmi. Le procedure vengono richiamate come istruzioni di 
programma; le funzioni possono essere richiamate da istruzioni di 
programma ogni volta che e' richiesto un valore. 

Il formato generale per le procedure e funzioni e’ simile a quello per i 
programmi. La struttura, formata da tre parti, comprende un'intestazione, 
una sezione dichiarativa e un corpo. 

Esempio di dichiarazione di una procedura: 

{Intestazione} 

PROCEDURE MODEL (I:INTEGER; R:REAL); 

{Inizio della sezione dichiarativa} 

LABEL 123; 

CONST ATOP =199; 

TYPE INDEX = 0..ATOP; 

VAR ARAY : ARRAY [INDEX] OF REAL; J : INDEX; 

{Dichiarazione di funzione} 

FUNCTION FONE (RX:REAL): REAL; 

BEGIN 

FONE := RX * I 
END; 

{Dichiarazione di procedura} 

PROCEDURE FOUT (RY:REAL); 

BEGIN 

WR1TE ('Output is ',RY) 

END; 

{Corpo della procedura MODEL} 

BEGIN ' 

FOR J := 0 TO ATOP DO 
IF GLOBALVAR THEN 

{Attivazione della procedura FOUT con il} 

{valore ritornato dalla funzione FONE.} 

FOUT (FONE (R + ARAY [J])) 

ELSE GOTO 123; 

123: WRITELN CDone'); 

END; 

La parte dichiarativa ed il corpo, insieme, sono chiamati 'blocco'. 

La dichiarazione di' una procedura o funzione associa un identificatore ad 
una porzione di programma. Questa porzione di programma può' essere, poi, 
attivata mediante un'appropriata istruzione della procedura o un 
indicatore della funzione. 



PROCEDURE 


L'esempio seguente illustra il formato generale della dichiarazione di 
procedura. L'intestazione e' seguita da: 

1. dichiarazioni di etichette, costanti, tipi, variabili e valori 

2. procedure e funzioni locali 

3. il corpo della procedura, racchiuso tra le parole riservate BEG1N e 
END. 

Quando il corpo della procedura termina l'esecuzione, il controllo 
ritorna all'elemento di programma che ha effettuato la chiamata. 

A livello Standard, l'ordine delle dichiarazioni deve essere il seguente: 

1. LABEL 

2. CONST 

3. TYPE 

4. VAR 

5. Procedure e funzioni 

A livello Esteso si può' avere un numero qualsiasi di LABEL, CONST, TYPE, 
VAR e sezioni VALUE, come pure di dichiarazioni di procedure e di 
funzioni, in ordine qualsiasi. Anche se le dichiarazioni di dati (C0N5T, 
TYPE, VAR, VALUE) possono essere mescolate con quelle di procedure e 
funzioni, risulta piu' chiaro, generalmente, porre per prime tutte le 
dichiarazioni di dati. 

Comunque, il porre le dichiarazioni di variabili dopo le dichiarazioni di 
procedure e funzioni assicura che queste variabili non vengano usate 
dalle procedure o funzioni. 

In generale, il valore iniziale di una variabile non e' definito. La 
sezione VALUE, che deve seguire la sezione VAR, e' un'estensione del 
Pascal che consente di inizializzare esplicitamente programmi, moduli, 
implementazioni, variabili STATIC e PUBLIC. Se l'indicatore di 
inizializzazione ($1N1TCK) e’ attivo, tutte le variabili 1NTEGER, 
subrange di 1NTEGER, REAL e le variabili puntatore non vengono 
inizializzate. Le variabili di file vengono sempre inizializzate, 
indipendentemente dalla posizione del controllo di inizializzazione. 
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FUNZIONI 


Le funzioni sono simili alle procedure, con la differenza che esse 
vengono richiamate in un'espressione al posto di un'istruzione e 

ritornano un valore. 

La dichiarazione di funzione definisce le parti del programma che 

calcolano un valore. Le funzioni sono attivate quando viene incontrato, 
in un'espressione, un indicatore di funzione. 

La dichiarazione di una funzione ha lo stesso formato della dichiarazione 
di procedura, con la differenza che l’intestazione contiene anche il tipo 
del valore ritornato dalla funzione. 

Esempio di intestazione di funzione: 

FUNCT10N MAXIMUM (1, J : 1NTEGER) : 1NTEGER; 

All'interno del blocco di una funzione, nel corpo stesso della funzione o 
in una procedura o funzione nidificata in esso, deve essere eseguita 
almeno un'assegnazione all'identificatore di funzione per poterne 
ritornare il valore. Se il controllo di inizializzazione non e' attivo e 

il tipo ritornato non e' 1NTEGER, REAL o puntatore, il compilatore non 

effettua controlli runtime su questa assegnazione. Comunque, se non 
esistono assegnazioni all'identificatore di funzione, il compilatore 
emette un messaggio di errore. 

A livello Standard, le funzioni possono ritornare qualsiasi tipo semplice 
(ordinale, REAL o 1NTEGER4) oppure un puntatore. A livello Esteso, le 
funzioni possono ritornare qualunque tipo semplice, strutturato o di 
riferimento. Tuttavia non possono ritornare tipi che non possono essere 
assegnati (cioè', un tipo super array oppure una struttura che contiene 
un file, anche se e' permesso un tipo derivato super array). 

Un identificatore di funzione in un'espressione richiama le funzione in 
modo ricorsivo invece di fornire il valore corrente della funzione. 

Per ottenere il valore corrente, occorre usare la funzione RESULT la 
quale prende l'identificatore della funzione come parametro ed e' 
disponibile a livello Esteso. 

L'esempio seguente illustra come usare la funzione RESULT per ottenere il 
valore corrente di una funzione all'interno di un'espressione: 

FUNCT10N FACT (F: REAL): REAL; 

BEG1N 

FACT := 1 ; 

WH1LE F > 1 DO 
BEG1N 

FACT := RESULT (FACT) * F; F := F - 1 
END 
END 

L'uso della funzione RESULT e' piu' efficiente di quello di una singola 
variabile locale per il valore della funzione, e dell'assegnazione di 








questa variabile locale all'identificatore di funzione. Se la funzione 
ha un valore strutturato, la funzione RESULT può* essere seguita dalla 
normale sintassi di selezione dei componenti. 

Un identificatore di funzione alla sinistra di un'assegnazione fa 
riferimento alla variabile locale della funzione che contiene il suo 
valore corrente invece di richiamare ricorsivamente la funzione stessa. 
Gli altri posti in cui, usando un identificatore di funzione, si fa 
riferimento a questa variabile locale sono: 

un parametro di riferimento 

il record di un'istruzione WITH 

l'operando di uno degli operatori ADR e ADS 

Ognuno di questi casi prevede l'uso dell'indirizzo (non del valore) di 
una variabile. 

Invece di usare la variabile locale della funzione, si può' richiamare la 
funzione ed usare il suo valore di ritorno. Come descritto in "Cos'e 1 una 
Variabile ?", nel Capitolo 12, ottenere l'indirizzo di un’espressione 
significa valutare l’espressione, memorizzarne il risultato in una 
variabile temporanea (nascosta) ed usare l'indirizzo di questa variabile. 

Per ottenere ciò' con una funzione occorre forzare la valutazione 
racchiudendo il nome della funzione tra parentesi, nel modo seguente: 

TYPE IREC= RECORD 1: 1NTEGER END; 

FUNCT10N SUM (A, B: 1NTEGER): IREC; 

{Ritorna la somma di A e B} 

BEG1N 

1F TUESDAY THEN 
BEGIN 

IF B = 0 THEN BEGIN SUM := A; RETURN END; 

WITH (SUM (A, B-1)) {Richiama ricorsivamente SUM.} 

DO SUM.I := 1 + 1 {le' il risultato della chiamata.} 

END 

ELSE 

WITH SUM {Usa la variabile locale della funzione.} 

DO 1 := A + B; {l e' la variabile locale.} 

END; 
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ATTRIBUTI E DIRETTIVE 


i 


Un attributo fornisce ulteriori informazioni su una procedura o su una 
funzione. Gli attributi sono disponibili anche al livello Esteso del 
Pascal. Essi vengono posti dopo l'intestazione, racchiusi tra parentesi 
quadre e separati da virgole. Gli attributi disponibili comprendono 
0R1G1N, PUBLIC, FORTRAN, PURE e 1NTERRUPT. 

Una direttiva fornisce informazioni su una procedura o funzione, pero' 
indica anche che solo l'intestazione della procedura o funzione e' 
presente, sostituendo cosi' il blocco (parte dichiarativa e corpo) 
incluso normalmente dopo l'intestazione. Le direttive sono valide nel 
Pascal Standard, e le uniche disponibili sono EXTERN e FORWARD. EXTERN 
può' essere usata solamente con procedure o funzioni nidificate 
direttamente in un programma, modulo, implementazione o interfaccia. 
Questa restrizione evita l’accesso a variabili non locali presenti nello 
stack. 

La tabella 15-1 contiene gli attributi e le direttive per le procedure e 
le funzioni. Le sezioni seguenti descrivono in dettaglio questi attributi 
e direttive. 


NOME 

USO 

FORWARD 

1 

Direttiva. Permette il richiamo di una procedura o di 
una funzione prima di fornire la sua definizione nel 
file sorgente. 

EXTERN 

Direttiva. Indica che una procedura o una funzione 
risiede in un altro modulo. 

1 

PUBLIC 

i 

Attributo. Indica che una- procedura o una funzione 
può' essere richiamata da altri moduli. 

0RIG1N 

1 

Attributo. Dice al compilatore dove risiede il codice 
di una procedura o funzione EXTERN. 

FORTRAN 

Attributo. Specifica una sequenza di chiamata compati- 
l bile con il FORTRAN Microsoft (solo nel caso in cui e' 

disponibile 1’MS-FORTRAN). 

INTERRUPT 

| 

j 

Attributo. Fornisce alle procedure una speciale se¬ 
quenza di chiamata, che salva lo stato del programma 
nello stack. 

PURE 

1 

Attributo. Indica che la funzione non può' modificare 
variabili globali. 

i 


Tabella 15-1 Attributi e Direttive per Procedure e Funzioni 
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Le seguenti regole valgono quando si combinano attributi nella 
dichiarazione di procedure e funzioni: 

ad ogni funzione può' essere associato l'attributo PURE 

le procedure e le funzioni con attributi devono essere nidificate 
direttamente all'interno di un programma, modulo o unita'; l'unica 
eccezione a questa regola e' costituita dall'attributo PURE 

in una procedura o funzione può' essere specificato soltanto un 
attributo di sequenza di chiamata (cioè' FORTRAN o INTERRUPT, ma non 
entrambi) 

l'attributo PUBLIC e la direttiva EXTERN si escludono l'uno con 
l'altro, cosi' come gli attributi PUBLIC e 0RIG1N 

Le direttive EXTERN o FORWARD vengono automaticamente associate a tutti i 
costituenti dell'interfaccia di un'unita'; nell'implementazione, 
l'attributo PUBLIC e' automaticamente associato a tutti i costituenti che 
non sono EXTERN. 

Dato che i costituenti di un'unita' vengono. dichiarati soltanto 
nell'interfaccia (non nell'implementazione), l'interfaccia risiede dove 
sono presenti gli attributi. Si può' fornire la direttiva EXTERN in 
un'implementazione dichiarando per prime tutte le funzioni e procedure 
EXTERN; l'attributo 0R1G1N non può' essere usato ne' nell'interfaccia ne' 
nell'implementazione di un'unita'. 

In un modulo si può' fornire un gruppo di attributi nell'intestazione; 
essi vengono applicati a tutte le funzioni e procedure nidificate 
direttamente. L'unica eccezione a questa regola e' costituita 
dall'attributo 0R1G1N, che può' essere associato soltanto ad una singola 
procedura o funzione. 

Se l'attributo PUBLIC e' uno degli attributi specificati 
nell'intestazione di un modulo, un attributo EXTERN assegnato ad un 
procedura o funzione all'interno del modulo prevale sull'attributo 
globale PUBLIC. Se l'intestazione del modulo non ha attributi, 
l'attributo PUBLIC viene assunto per tutte le procedure e funzioni 
direttamente nidificate. 

L'attributo PUBLIC permette il richiamo di una funzione o procedura da 
parte di altro codice presente in memoria e non può' essere usato con la 
direttiva EXTERN. La direttiva EXTERN permette il richiamo di altro 
codice in memoria usando 0R1G1N o il linker. PUBLIC, EXTERN ed 0R1G1N 
forniscono un mezzo a basso livello per effettuare il concatenamento 
(link) di routine Pascal con altre routine Pascal o con routine scritte 
in altri linguaggi. 

Una dichiarazione di una procedura o funzione con la direttiva EXTERN o 
FORWARD e' costituita solo dall'intestazione, senza il blocco. Le routine 
EXTERN hanno il blocco fuori del programma. Le routine FORWARD sono 
completamente dichiarate (cioè' hanno il loro blocco) in una zona 
successiva all'interno della parte compilativa. Entrambi queste direttive 
sono disponibili al livello Standard del Pascal. La parola chiave 
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EXTERNAL e’ sinonimo di EXTERN. 

L'attributo PURE può' essere usato soltanto per le funzioni, non per le 
procedure. Al contrario, l'attributo 1NTERRUPT può' esssere usato 
soltanto per le procedure, ma non per le funzioni. PURE e' l'unico 
attributo che può' essere usato per funzioni nidificate. 


LA DIRETTIVA FORWARD 

La dichiarazione FORWARD permette di chiamare una procedura o una 
funzione prima della loro dichiarazione nel testo sorgente. Questo 
permette una ricorsione indiretta, cioè' A chiama B e B chiama A. Una 
dichiarazione FORWARD avviene facendo seguire l’intestazione della 
procedura o funzione specificata dalla direttiva FORWARD. In seguito si 
deve dichiarare effettivamente la procedura o funzione, senza ripetere la 
lista dei parametri formali, oppure gli attributi , oppure il tipo del 
valore di ritorno di una funzione. 

Esempio di dichiarazione FORWARD: 

{Dichiarazione di ALPHA, con lista di parametri ed attributi} 
FUNCT10N ALPHA (Q, R: REAL): REAL [PUBLIC]; 

FORWARD; 

{Chiamata di ALPHA} 

PROCEDURE BETA (VAR S, T: REAL); 

BEGIN 

T := ALPHA (S, 3.14) 

END; 

{Dichiarazione di ALPHA, senza lista di parametri} 

FUNCTION ALPHA; 

BEGIN 

ALPHA := (Q + R); 

IF R < 0.0 THEN BETA (3.14, ALPHA); 

END; 


LA DIRETTIVA EXTERN 

La direttiva EXTERN identifica una procedura o una funzione che risiede 
in un altro modulo. Occorre solo fornire 1'intestazione-della procedura o 
della funzione seguita dalla parola EXTERN. Si presuppone che 
1'implementazione della procedura o della funzione sia presente in un 
altro modulo. 

EXTERN e’ un attributo se usato con una variabile, mentre costituisce 
una direttiva quando riferito ad una procedura o funzione. Come per le 
variabili, EXTERNAL e' sinonimo di EXTERN. 

La direttiva EXTERN, associata ad una procedura o funzione all’interno di 
un modulo, annulla l'attributo PUBLIC del modulo stesso. La direttiva 
EXTERN e' pure ammessa, nell'implementazione di un'unita', per un 
costituente di una procedura o funzione. Tutti questi costituenti esterni 





devono essere dichiarati all'inizio dell'implementazione, prima delle 
altre procedure e funzioni. 

Ogni procedura o funzione avente direttiva EXTERN deve essere 
direttamente nidificata in un programma. Si possono concatenare routine 
Pascal concatenando unita' compilate separatamente (a tal proposito si 
può' vedere il Capitolo 18, "Unita’ Compilatali di un Programma"). 

Esempi di intestazioni di procedure e funzioni dichiarate con la 
direttiva EXTERN: 

FUNCT10N POWER (X, Y: REAL): REAL; EXTERN; 

PROCEDURE ACCESS (KEY: KTYP) [0R1G1N SYSB+4]; EXTERN; 

In questo esempio la funzione POWER e' dichiarata EXTERN, come pure la 
procedura ACCESS. Entrambe sono implementate in unita' compilative 
esterne. La procedura ACCESS ha inoltre associato l'attributo 0R1G1N, 
che viene descritto oltre in "L'Attributo 0R1G1N". Non e' possibile 
dichiarare una procedura o funzione come EXTERN se e' già' stata 
dichiarata precedentemente come FORWARD. 


L'ATTRIBUTO PUBLIC 

L'attributo PUBLIC indica che ad una procedura o funzione si può' 
accedere da altri moduli, dichiarandola EXTERN nei moduli che la 
chiamano. Quindi e' sufficiente dichiarare una procedura PUBLIC e 
definirla in un modulo, e poi usarla in un altro modulo semplicemente 
dichiarandola EXTERN. 

In modo analogo alle variabili, l'identificatore della procedura o 
funzione viene passato al concatenatore (linker) e può' essere troncato, 
se il concatenatore lo richiede. Per informazioni specifiche sulle 
restrizioni imposte dal compilatore e dal linker, riguardo gli 
identificatori, si può' consultare l'Appendice A, "Caratteristiche 
d’Implementazione" nel manuale "Linguaggio Pascal Guida Utente". PUBLIC 
e,0R!GIN si escludono l'uno con l'altro; le routine PUBLIC richiedono un 
blocco e le routine 0RIG1N devono essere EXTERN. 

Qalsiasi procedura o funzione con attributo PUBLIC deve essere 
direttamente nidificata in un programma o in un'implementazione. Un modo 
ad alto livello per effettuare il concatenamento di routine Pascal e’ 
quello di concatenare separatamente le unita' compilate. Per ulteriori 
dettagli si può' vedere il Capitolo 18, "Unita 1 Compilabili di un 
Programma". 


15-8 LINGUAGGIO PASCAL MANUALE GENERALE 




INTRODUZIONE A PROCEDURE E FUNZIONI 



Esempi di procedure e funzioni dichiarate PUBLIC: 

FUNCT10N POWER (X, Y: REAL) : REAL [PUBLIC]; 

{La funzione POWER e' disponibile per altri moduli} 
{dato che e’ stata dichiarata PUBLIC} 

BEG1N 


END; 

PROCEDURE ACCESS (KEY : KTYP) [0R1G1N SYSB+4, PUBLIC]; 
BEGIN 


END; 


{illegale, poiché' 0R1G1N deve essere pure EXTERN} 


L'ATTRIBUTO ORIG1N 

L'attributo 0RIG1N deve essere usato con la direttiva EXTERN; 0RIG1N dice 
al compilatore dove la procedura o funzione può' essere direttamente 
trovata; in questo modo il linker non richiede il corrispondente 
identificatore PUBLIC. 

Esempi di procedure e funzioni dati con attributo ORIGIN : 

PROCEDURE OPSYS [0R1G1N 8, FORTRAN]; 

EXTERN; 

FUNCTION A_T 0_D (C: S1NT) : S1NT [ORIGIN #100]; 

EXTERN; 

Nel primo esempio, la procedura OPSYS inizia dall'indirizzo decimale 
assoluto 8, ha la sequenza di chiamata FORTRAN (descritta in seguito, in 
"L'Attributo FORTRAN") ed e* dichiarata EXTERN. Nel secondo esempio, la 
funzione A_T0_D accetta il valore S1NT come parametro (S1NT e' un valore 
subrange intero predichiarato che varia da -127 a +127). La funzione si 
trova all'indirizzo esadecimale 100. 

1 modo analogo alle variabili ORIGIN, il compilatore usa l'indirizzo per 
trovare il codice e non fornisce direttive al linker. Questo permette, ad 
esempio, la chiamata di routine che si trovano in ROM ad indirizzi già' 
determinati. In casi semplici può' essere usato per sostituire un 
caricatore di linker. 

Occorre ricordare che ORIGIN implica sempre EXTERN. Quindi, procedure o 
funzioni dichiarate precedentemente FORWARD non possono essere dichiarate 
con l'attributo ORIGIN. Non e' neppure consentito applicare l'attributo 
ORIGIN dopo l’intestazione di un modulo. 

Generalmente non e' consentito usare ORIGIN con un costituente di 
un'unita', ne' in un'interfaccia ne' in un'implementazione. 

In modo analogo alle variabili, l'origine può' essere un indirizzo 
segmentato. Su macchine segmentate, un'origine procedurale non segmentata 
assume il segmento di codice corrente con lo spiazzamento fornito 
dall'attributo; questa forma non ha usi evidenti. 





L'ATTRIBUTO FORTRAN 



Se sulla specifica macchina e 1 disponibile 1'MS-FORTRAN, allora si può' 
usare l'attributo FORTRAN. Questo attributo può' essere applicato sia a 
procedure che a funzioni (ma non a variabili). Invece dell'usuale 
sequenza di chiamate Pascal, viene generata una sequenza di chiamate 
compatibile con il compilatore FORTRAN. Questo permette la chiamata di 
procedure o funzioni Pascal da parte di programmi FORTRAN e, viceversa, 
l'attivazione di routine FORTRAN da parte di un programma Pascal. 

Esempio di procedura con l'attributo FORTRAN: 

PROCEDURE DELTA (I, J: INTEGER) [FORTRAN]; 

FORUARD; 

Ogni procedura o funzione con l'attributo FORTRAN deve essere nidificata 
direttamente in un programma o in un'implementazione. 

In un ambiente a 16 bit, il Pascal usa la stessa sequenza di chiamata del 
compilatore per il FORTRAN Microsoft, BASIC Microsoft e COBOL Microsoft. 
Quindi non e' necessario specificare l'attributo FORTRAN; questo 
attributo, quando specificato, viene ignorato dal compilatore Pascal. 


L'ATTRIBUTO INTERRUPT 

L'attributo INTERRUPT si applica solo a procedure, non a funzioni o 
variabili. Esso permette la generazione di una speciale sequenza di 
chiamata che memorizza lo stato del programma nello stack; che a sua 
volta permette di gestire un'interruzione hardware, ripristinare lo stato 
del programma, restituire il controllo al programma, senza pero' 
modificare lo stato attuale del programma. 

Esempio di procedura con l’attributo INTERRUPT: 

PROCEDURE 1NCHAR [INTERRUPT]; 

Poiché' le procedure con attributo INTERRUPT vengono richiamate per la 
gestione delle interruzioni hardware, esse non devono essere richiamate 
da un'istruzione di procedura. Una procedura INTERRUPT può' essere 
soltanto richiamata quando viene emessa l'interruzione a cui e' 
associata. Inoltre, le procedure con INTERRUPT non hanno parametri. 

La dichiarazione di una procedura con l'attributo INTERRUPT assicura la 
conformità' della procedura con la gestione delle interruzioni, cioè': 

una speciale sequenza di chiamata memorizza completamente lo stato 
del programma nello stack 

lo stato del programma comprende i registri e gli indicatori di 
macchina, piu' tutti i dati globali del compilatore come il puntatore 
dell'elemento 

lo stato del programma viene ripristinato all'uscita della procedura 
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Tutte le procedure 1NTERRUPT devono essere direttamente nidificate in 
un’unita' compilativa. 

Le interruzioni non vengono rinviate automaticamente alle procedure 
INTERRUPT; inoltre, per quanto possibile sulla macchina oggetto, le 
interruzioni non vengono ne' abilitate ne' disabilitate da una procedura 
INTERRUPT. L'invio e l'abilitazione di interruzioni sono operazioni I 
troppo dipendenti dalla macchina per essere incluse in un linguaggio, 
indipendente dalla macchina, come il Pascal. j 

Tuttavia il Pascal fornisce la procedura di libreria VECTIN, la quale 
accetta come parametri il livello ed una procedura di interruzione; ; 
questa procedura agisce sul vettore di interruzione in modo dipendente 
dalla macchina. 

I 

In modo analogo, le procedure di libreria ENAB1N e DISB1N abilitano e 
disabilitano, ripettivamente, le interruzioni in modo dipendente dalla 
macchina. Vedere il Capitolo 16, "Procedure e Funzioni Disponibili", per 
ulteriori informazioni su queste routine, e l'Appendice A, 
"Caratteristiche d'Implementazione" nel manuale "Linguaggio Pascal Guida 
Utente", per informazioni sull'implementazione di queste routine. 

Una procedura INTERRUPT effettua un ritorno normale alla routine 
interrotta per poterne continuare l'elaborazione. Ciò’ significa che: 

non si deve eseguire un'istruzione GOTO che permette di uscire dalla 
procedura INTERRUPT 

tutto il controllo di debug deve essere tralasciato ($DEBUG-, 
$ENTRY-, e $RUNT1ME-) 

l'overflow dello stack può' non essere controllato anche se $STACKCK 
e’ attivo 

L'uso di procedure INTERRUPT permette, in Pascal, la rientranza del 
codice: il codice generato e' rientrante come il sistema runtime (eccetto 
l'unita' heap e, nella maggior parte dei sistemi operativi, le porzioni 
di unita' di file). 

Alcune sezioni critiche nel sistema runtime sono protette da semafori che 
generano un errore runtime, se queste sezioni sono già’ in uso e quindi 
bloccate. Ad esempio, se il gestore dello heap e' in esecuzione quando 
viene riconosciuta un'interruzione, e la procedura INTERRUPT cerca di 
allocare un blocco dallo heap, allora la struttura dello heap potrebbe 
diventare non valida. Questa condizione causa l'emissione di un errore 
runtime. 

Comunque, nella maggior parte dei casi, il file System non e' protetto da 
un semaforo. E' quindi consigliabile non effettuare operazioni di 1/0 
all'interno di una procedura INTERRUPT. Oppure si possono eliminare molti 
problemi di 1/0 in una procedura INTERRUPT evitando di aprire o chiudere 
file (cioè' non dichiarando variabili locali di file o creando file nello 
heap) e non eseguendo input/output su file che possono essere in procinto 
di 1/0 quando viene emessa l'interruzione. 
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L’ATTRIBUTO PURE 


L'attributo PURE può' essere applicato soltanto alle funzioni, non alle 
procedure o variabili. PURE indica all'ottimizzatore del compilatore che 
la funzione non modifica variabili globali ne' direttamente ne' chiamando 
altre procedure o funzioni. 

Esempio di dichiarazione PURE: 

FUNCT10N AVERAGE (CONST TABLE: RVECTOR) : REAL [PURE]; 

Per ulteriori dettagli si possono esaminare le seguenti istruzioni: 

A := VEC [l * 10 + 7]; 

B := F00; 

C := VEC [1 * 10 + 9]; 

Se la funzione F00 ha l'attributo PURE, 1'ottimizzatore genera codice per 
calcolare 1*10 una volta sola. Tuttavia là funzione F00, nel caso che non 
sia stata dichiarata PURE, può' modificare I. In questo caso 1*10 deve 
essere ricalcolato dopo la chiamata a F00. 

Le funzioni vengono considerate PURE solo se viene specificato 
esplicitamente l’attributo. 11 compilatore controlla che l'attributo PURE 
non presenti alcuna di queste condizioni: 

assegnazioni a variabili non locali 

parametri VAR o VARS (i parametri CONST e CONSTS sono permessi) 

chiamate a funzioni che non hanno attributo PURE. 

Anche se le seguenti restrizioni non vengono controllate dal compilatore, 
una funzione PURE non deve: 

usare il valore di una variabile globale 

modificare i riferimenti passati per valore (ad esempio, riferimenti 
di puntatore o di tipo indirizzo) 

effettuare input o output 

Poiché' il risultato di una funzione PURE con gli stessi parametri deve 
essere sempre lo stesso, si può' ottimizzare la chiamata di funzione. 

Ad esempio, se nelle seguenti istruzioni DS1N e' PURE, il compilatore 
effettua una sola chiamata a D51N: 

HX := A * DSTN (P[l, J] * 2); 

HY := B * D51N (p[l, J] * 2); 
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PARAMETRI DI PROCEDURE E FUNZIONI 

Le procedure e le funzioni ammettono tre diversi tipi di parametri: 

1. parametri valore 

2. parametri di riferimento 

3. parametri procedurali e funzionali 

Ognuno di questi tipi di parametri viene descritto separatamente, 
nell'ordine indicato, nei paragrafi che seguono. 

La descrizione riguarda sia i parametri formali che quelli attuali. Un 
parametro formale e' il parametro fornito quando una procedura o funzione 
viene dichiarata, con un identificatore, nella relativa intestazione. 
Quando una funzione o una procedura viene chiamata, il parametro attuale 
sostituisce quello formale; in questo caso il parametro assume la forma 
di una variabile, di un valore o di un'espressione. 

Il Pascal ha diverse funzionalità' di parametri a livello Esteso: 

un tipo super array può' essere passato come parametro di riferimento 

un parametro di riferimento può’ essere dichiarato READONLY 

possono essere dichiarati espliciti parametri di referimento 
segmentati. 


PARAMETRI VALORE 

Quando viene passato un parametro per valore, il parametro attuale e' 
un'espressione. Questa espressione viene valutata nell'ambiente di 
chiamata di una procedura o funzione ed il suo valore viene assegnato al 
parametro formale. Il parametro formale e' una variabile locale alla 
procedura o alla funzione chiamata. 

Quindi i parametri valore formali sono sempre locali ad una procedura o 
funzionè. 

Esempio di parametri valore: 

{Dichiarazione di funzione} 

FUNCTION ADD (A, B, C : REAL) : REAL ; 

{A, B e C sono parametri formali} 

X := ADD (Y, ADD (1.111, 2.222, 3.333), (Z * 4)) 

In questa particolare chiamata di funzione, Y, ADD(...) e (Z * 4) sono 

espressioni che rappresentano i parametri attuali. In questo esempio, i 
valori forniti dalle espressioni devono essere di tipo REAL. (L'esempio 
inoltre effettua una chiamata ricorsiva alla funzione ADD). 







11 valore dell'espressione (parametro attuale) deve essere compatibile 
con il tipo del parametro formale. 

11 passaggio per valore di tipi strutturati e' consentito, tuttavia non 
e' efficiente, poiché’ l’intera struttura deve essere ricopiata. Un 
parametro valore di tipo SET, LSTR1NG o subrange può’ anche richiedere un 
controllo di errore runtime, se il controllo di variabilità’ e’ attivo. 
Inoltre, i parametri valore di tipo SET e LSTR1NG possono richiedere un 
codice addizionale generato per adattamento di dimensioni. 

Una variabile file o super array non può’ essere passata come parametro 
valore, dato che non può’ essere assegnata. Comunque può’ essere passata 
una variabile di tipo derivato da super array o di buffer di file. 
Passare una variabile di buffer di file come parametro valore implica una 
valutazione della variabile stessa. 


PARAMETRI DI RIFERIMENTO 

Al livello Standard del Pascal, quando viene passato un parametro di 
riferimento, il parametro formale e 1 preceduto dalla parola chiave VAR. 
Inoltre, il parametro attuale deve essere una variabile, non 
un'espressione. 11 parametro formale indica la variabile attuale durante 
l’esecuzione della procedura. 

Tutte le operazioni effettuate sul parametro formale sono eseguite 
immediatamente sul parametro attuale, passando l'indirizzo macchina della 
variabile attuale alla procedura. Per processori con supporto 

segmentato, questo indirizzo e' uno spiazzamento all'interno del segmento 
dati di default. 

Esempio di parametri variabili: 

PROCEDURE CHANGE_VARS (VAR A, B, C : 1NTEGER); 

{A, B e C sono parametri formali di .riferimento.} 

{Essi indicano variabili, non valori.} 


CHANGE_VARS (X, V, Z); 

In questo esempio X, Y e Z devono essere variabili, non espressioni. 
Inoltre le variabili X, Y e Z vengono alterate ogni volta che vengono 
alterati i parametri formali A, B e C nella procedura dichiarata. Questo 
differisce dalla gestione dei parametri valore, in quanto può' effettuare 
solo delle copie di variabili. Se la selezione di una variabile prevede 
il calcolo di un indice di un array oppure la valutazione di un puntatore 
o di un indirizzo, queste operazioni vengono eseguite prima della 
procedura stessa. 11 tipo del parametro attuale deve coincidere con il 
tipo del parametro formale. 

11 passaggio di una variabile non locale come parametro VAR e' indicato 
dal carattere '/’ o dal segno percento nella colonna G (globale) del 
file listing (vedere "Formato del File Listing", nel Capitolo 19, per 
informazioni sul significato di questi caratteri nella colonna G). 
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I seguenti elementi non possono essere passati come parametri VAR: 

un componente di una struttura PACKED (eccetto CHAR di una STR1NG o 
LSTR1NG) 

qualsiasi variabile con attributo READONLY o PORT (inclusi i 
parametri CONST e CONSTS e la variabile di controllo FOR). 

II passaggio di una variabile di buffer di file come parametro di 
riferimento genera un messaggio di avvertimento, poiché’ non viene 
effettuata la chiamata normale a file System come accade in genere usando 
una variabile buffer. Queste chiamate non sono generate quando una 
variabile file e' passata per riferimento. 

Su una macchina segmentata, un parametero VAR passa un indirizzo che e' 
in realta’ uno spiazzamento all'interno del segmento dati di default. In 
alcuni casi occorre accedere ad oggetti che risiedono in altri segmenti. 
Per passare il riferimento a questi oggetti si deve usare un indirizzo 
segmentato contenente sia il registro di segmento che il valore dello 
spiazzamento. 11 livello Esteso prevede il prefisso VARS al posto di 
VAR: 

PROCEDURE CONCATS (VARS T, S: STRING); 

VARS può' essere usato come parametro dati in procedure e funzioni, non 
nella sezione dichiarativa di programmi, procedure e funzioni. 1 
parametri VARS e CONSTS vengono forniti principalmente per mantenere la 
compatibilita' con macchine che hanno due diversi spazi di indirizzi. 
Questi parametri non sono necessari per macchine con un singolo spazio 
indirizzi. Su queste macchine le parole chiave VARS e CONSTS sono 
equivalenti a VAR e CONST. 


PARAMETRI SUPER ARRAY 

I parametri super array possono comparire come parametri formali di 
riferimento. Questo permette ad una procedura o funzione di operare su 
un array con un particolare tipo super array (od anche tipo componente o 
tipo indice), senza un estremo superiore prefissato. 11 parametro formale 
e' un parametro di riferimento dello stesso tipo super array. 

II tipo del parametro attuale deve essere un tipo derivato da quello 
super array oppure di tipo super array stesso (cioè 1 un altro parametro 
di riferimento oppure un puntatore a cui e' stato tolto il riferimento). 
Eccetto per il confronto di LSTR1NG, i parametri di tipo super array non 
possono essere assegnati o confrontati direttamente. 

1 valori attuali degli estremi superiori e inferiori sono disponibili 
mediante le funzioni UPPER and LOWER; questo permette alle routine di 
operare su array di qualsiasi dimensione. Un parametro attuale LSTR1NG 
può' essere passato ad un parametro di riferimento di tipo super array 
STRING. Quindi il parametro super array STRING può' essere usato per 
procedure e funzioni che operano su stringhe di entrambi i tipi STRING e 
LSTR1NG. 



Esempio di parametri super array: 


TYPE REALS = ARRAY [0..*] 0F REAL; 

PROCEDURE SUMRS (VARS X: REALS; CONST X: REALS); 

BEG1N 

• 

m 

END; 

Per ulteriori informazioni, si possono vedere, nel Capitolo 9 le seguenti 
sezioni: "Super Array", "Tipi STR1NG", "Tipi LSTR1NG". 


Parametri Costante e Segmento 

A livello Esteso, un parametro formale preceduto dalla parola riservata 
CONST implica che il parametro attuale e' un parametro di riferimento 
READONLY. Questo e' utile specialmente per parametri di tipo strutturato, 
che possono essere costanti, dato che viene eliminata la necessita' di 
copiare un parametro valore, per evitare un consumo di tempo. 11 
parametro attuale può' essere una variabile, il risultato di una funzione 
oppure un valore costante. 

Non può’ essere fatta alcuna assegnazione a parametri CONST e neanche a 
qualche loro componente. Sono permessi parametri CONST di tipo super 
array. Un parametro CONST in una procedura non può' essere passato come 
parametro VAR in un'altra procedura. E' comunque permesso passare un 
parametro VAR in una procedura come parametro CONST in un'altra 
procedura. 

Esempio di parametro CONST: 

PROCEDURE ERROR (CONST ERRMSG : STR1NG); 

Su una macchina segmentata, un parametro CONST viene passato come un 
indirizzo che in realta' e' uno spiazzamento all'interno del segmento 
dati corrente. In alcuni casi occorre accedere ad oggetti che risiedono 
in altri segmenti. Per passare il riferimento a questi oggetti occorre 
far generare al compilatore un indirizzo segmentato contenente sia il 
registro di segmento che il valore dello spiazzamento. 11 livello Esteso 
prevede il prefisso CONSTS al posto di CONST. L'uso di CONSTS e’ analogo 
all'uso di VARS per parametri formali di riferimento. 

Esempio di parametro CONSTS: 

PROCEDURE CAT (VARS T: STR1NG; CONSTS S: STR1NG); 

Un parametro CONSTS può' essere usato solamente come parametro dati in 
procedure e funzioni, non nella sezione dichiarativa di programmi, 
procedure e funzioni. 

E' possibile passare il valore di un'espressione come parametro CONST o 
CONSTS. L'espressione viene valutata ed il valore e 1 assegnato ad una 
variabile temporanea (nascosta) nell'ambiente della funzione o procedura 
di chiamata. L'espressione deve essere racchiusa in parentesi allo scopo 
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di forzarne la valutazione. 

Un identificatore di funzione può* essere passato come riferimento ad un 
parametro VAR, VARS, C0N5T o CONSTS. In questo caso viene passata la 
variabile locale della funzione, e occorre quindi che la chiamata venga 
effettuata nel corpo della funzione stessa oppure in una procedura o 
funzione dichiarata con la funzione. 

11 valore ritornato da un indicatore di funzione può' essere passato, 
come qualsiasi espressione, ad un parametro CONST o CONSTS. In modo 
analogo alle espressioni passate per riferimento, l'indicatore di 
funzione deve essere racchiuso in parentesi, come segue: 

PROCEDURE WRITE_ANSWER (CONSTS A: INTEGER); 

BEG1N 

WRITELN ('THE ANSWER 1S ,' A) 

END; 

FUNCT10N ANSWER : INTEGER; 

BEG1N 

ANSWER := 42; 

WRITE_ANSWER (ANSWER); 

{Viene passato il riferimento alla variabile locale.} 

END; 

PROCEDURE H1TCH_H1KE; 

BEGIN 

WR1TE_ANSWER ((ANSWER)) 

{Richiamare ANSWER, assegnarla alla variabile temporanea,} 

{passare il riferimento alla variabile temporanea} 

END; 


PARAMETRI PROCEDURALI E FUNZIONALI 

I parametri procedurali possono essere usati nei modi seguenti: 

in analisi numerica 

chiamando alcune routine di libreria 

in applicazioni speciali. 

In analisi numerica, può' essere utile passare una funzione ad una 
procedura o ad un'altra funzione che calcola un integrale tra due limiti 
oppure un valore minimo o massimo, e cosi' via. Alcuni interessanti 
algoritmi fanno uso di parametri procedurali in campi come il 
riconoscimento di testi e l'intelligenza artificiale. 

Quando viene passato un parametro funzionale o procedurale, 
l'identificatore attuale e' il nome di una procedura o di una funzione. 

II parametro formale e' costituito dall'intestazione di una procedura o 
funzione, compresi tutti gli attributi, preceduta dalla parola riservata 
PROCEDURE o FUNCTION. 
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Si esamini, ad esempio, queste dichiarazioni: 


TYPE DOOR = (FRONT, BARN, CELL, DOGJHOUSE); 
SPEED = (FAST, SLOW, NORMAL); 

DIRECTION = (OPEN, SHUT); 

PROCEDURE OPEN_DOOR__WlDE 

(VAR A: DOOR; B: SPEED; C: DIRECTION); 


PROCEDURE SLAM_DOOR 

(VAR DR: DOOR; SP: SPEED; DIR: DIRECTION); 


PROCEDURE LEAVE_AJAR 

(VAR DD: DOOR; SS: SPEED; DD: DIRECTION); 

Tutte le procedure nell'esempio hanno un numero uguale di parametri. 1 
tipi dei parametri sono non solo compatibili, ma anche uguali. 1 
parametri formali non devono avere necessariamente lo stesso nome. 

Un parametro procedurale o funzionale può' accettare una di queste 
procedure, se la procedura o la funzione sono state impostate 
correttamente, cioè': 

FUNCT10N D00R_STATUS (PROCEDURE M0VE_D00R 
(VAR X: DOOR; Y: SPEED; Z: DIRECTION); 

VAR XX: DOOR; YY: SPEED; ZZ: DIRECTION) : 1NTEGER; 

{"PROCEDURE M0VE_D00R" e' il parametro procedurale formale;} 

{le due linee seguenti sono gli altri parametri formali.} 

BEG1N {door_status} 

D00R_STATUS := 0; 

M0VEJD00R (XX, YY, ZZ); 

{Viene eseguita una delle tre procedure dichiarate} 
{precedentemente.} 

1F XX = BARN AND ZZ = SHUT 
THEN D00R_STATUS := 1 ; 

1F XX = CELL AND ZZ = OPEN 
THEN D00R_STATUS := 2; 

1F XX = DOGHOUSE AND ZZ = SHUT 
THEN D00R_STATUS := 3 
END; 
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L'uso del parametro procedurale M0VE_D00R può' essere il seguente: 

1F D00R_STATUS 

(SLAM_D00R, CELL, FAST, SHUT) = 0 
THEN SOCIETY := SAFE; 

1F D00R_STATUS 

(0PEN_D00R_W1DE, BARN, SLOW, OPEN) = 0 
THEN COWS_ARE_OUT := TRUE; 

1F D00R_STATUS 

(LEAVEJUAR, DOG_HOUSE, SLOW, OPEN) = 0 
THEN D0G_CAN_GET_1N := TRUE; 

In ognuno dei casi sopra descritti, la lista dei parametri attuali e' 
compatibile con quella formale, sia nel numero che nel tipo dei 
parametri. Se il parametro passato e' di tipo funzionale, allora anche 
il valore di ritorno della funzione deve essere congruente nel tipo. 

L'insieme degli attributi definiti per i parametri procedurali formali 
deve coincidere con quello definito per quelli attuali corrispondenti, 
tranne gli attributi PUBLIC e 0R1G1N e la direttiva EXTERN che vengono 
ignorati. 

Una procedura PUBLIC o EXTERN, o qualsiasi procedura locale a qualsiasi 
livello di nidificazione, può' essere passata ad un parametro formale 
dello stesso tipo. 

Devono comunque coincidere l'eventuale attributo PURE e tutti gli altri 
attributi presenti nella sequenza di chiamata. Inoltre in sistemi che 
hanno un codice con indirizzi segmentati, le procedure o le funzioni 
passate come parametri ad una procedura o funzione EXTERN, devono a loro 
volta essere PUBLIC o EXTERN. 

In Pascal non e' ammesso il j. assaggio di procedure predichiarate e 
funzioni compilate come codice in linea; esse possono essere passate 
soltanto da subroutine richiamate. Le famiglie READ, WR1TE, ENCODE e 
DECODE hanno codice generato che varia a seconda dei tipi degli 
argomenti; esse non possono quindi essere passate come parametri 
funzionali. Le corrispondenti routine usate su file o per encode/decode 
possono invece essere passate. Ad esempio, READ di 1NTEGER diventa una 
chiamata RT1FQQ e questa procedura può' essere passata come parametro. 

Le seguenti procedure e funzioni intrinseche non possono essere passate 
come parametri ad una funzione o procedura: 

1. Livello Standard di Pascal: 


ABS 

EOLN 

PACK 

SQR 

ARCTAN 

EXP 

PAGE 

SQRT 

CHR 

LN 

PRED 

SUCC 

COS 

NEW 

READ 

UNPACK 

DISPOSE 

ODD 

READLN 

URITE 

EOF 

ORD 

SIN 

WR1TELN 
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2. Livello Esteso e livello Sistema di Pascal: 


BYLONG 

FL0AT4 

BYWORD 

H1BYTE 

DECODE 

H1U0RD 

ENCODE 

LOBYTE 

EVAL 

LOUER 

FLOAT 

LOWORD 


READFN 

S1ZE0F 

READSET 

TRUNC 

RESULT 

TRUNC4 

RETYPE 

UPPER 

ROUND 

URD 

R0UND4 



Quando viene attivata una procedura o funzione passata come parametro, le 
variabili non locali fanno riferimento a quelle presenti quando la 
procedura o la funzione e' stata passata come parametro, e non a quelle 
presenti quando essa viene attivata. Internamente, sia l'indirizzo della 
routine che l'indirizzo dell'ambiente chiamante vengono memorizzati nello 
stack. 

Esempio di uso di procedura formale: 

PROCEDURE ALPHA; 

VAR 1 : 1NTEGER; 

PROCEDURE DELTA; 

BEG1N 

WRITELN ('Delta done' ) 

END; 

PROCEDURE BETA (PROCEDURE XPR); 

VAR GLOB : INTEGER; 

PROCEDURE GAMMA; 

BEG1N GLOB := GLOB + 1 END; 

BEG1N {inizio di BETA} 

GLOB := 0; 

1F 1 = 0 
THEN BEG1N 

I := 1 ; XPR; BETA (GAMMA) 

END 

ELSE BEG1N 

GLOB := GLOB + 1 ; XPR 
END 

END; 

BEG1N {inizio di ALPHA} 

1 := 0 ; 

BETA (DELTA) 

END; 

Nell'esempio appena descritto avvengono le seguenti cose: 

1. viene chiamata ALPHA 

2. viene chiamata BETA, passando la procedura DELTA 
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3. quest’ultima chiamata crea un’istanza di GLOB nello stack (GLOBI) 

4. innanzitutto BETA cancella GLOBI posizionandola a zero. Poi, dato che 
I vale 0, viene eseguita la clausola THEN che posiziona I a uno ed 
esegue XPR, che e' legata a DELTA 

5. viene quindi emesso in output il messaggio 'Delta done' 

6. ora BETA viene richiamata in modo ricorsivo. BETA viene passata a 
GAMMA ed effettua in questo caso un accesso alle variabili non locali 
usate da GAMMA (cioè' GLOBI) 

7. la seconda chiamata a BETA crea una nuova istanza di GLOB (GL0B2). 
Quando GL0B2 viene azzerata, I vale 1, e quindi GL0B2 viene 
incrementata di uno 

8. viene quindi chiamata XPR, che e' legata a GAMMA, cosi' GAMMA e' 
eseguita e incrementa l'istanza attiva di GLOB (GLOBI) quando GAMMA 
viene passata a BETA 

9. GAMMA ritorna, cosi* pure la seconda chiamata di BETA; poi torna la 
prima chiamata di BETA ed infine ALPHA effettua il suo ritorno. 
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SOMMARIO 


Questo capitolo descrive otto categorie di procedure e funzioni, 
disponibili perche' predichiarate o perche' parti della libreria runtime 
del Pascal. Tutte, tranne quelle che si riferiscono al file di input e di 
output, sono descritte in dettaglio. 
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INTRODUZIONE 


Tutte le versioni di Pascal includono un grande numero di procedure e 
funzioni comuni, che non devono essere dichiarate nei programmi. Dato che 
esse sono dichiarate in un ambiente "esterno" al programma, si possono 
ridichiarare i loro identificatori. 

Per favorire la portabilità' dei programmi, il Pascal rende disponibili 
alcune di queste procedure e funzioni predichiarate soltanto a livello 
Esteso, inoltre fornisce alcune funzioni e procedure di libreria, che 
devono pero’ essere definite EXTERN per poterle usare. 

II Pascal gestisce tre tipi di funzioni e procedure: 

1. alcune sono predichiarate, e il compilatore traduce le loro chiamate 
in altre chiamate oppure in codice speciale (esse non possono essere 
passate come parametri) 

2. alcune sono predichiarate ma vengono chiamate normalmente (eccetto se 
il loro nome viene ridefinito) 

3. alcune non sono predichiarate ma sono disponibili come parte della 
libreria runtime del Pascal (devono essere dichiarate 
esplicitamente). 

E' comunque piu' vantaggioso catalogare queste procedure rispetto a 
quello che fanno, piuttosto che riferirsi alla loro implementazione. La 
tabella 16-1 contiene questa suddivisione: 





CATEGORIA 

SCOPO 

File System 

Operare su file che hanno modi di accesso e strutture 
diversi. 

Allocazione 

Allocare e deallocare dinamicamente strutture dati 

dinamica 

nello heap durante il runtime. 

Conversione 

dati 

! Convertire dati da un tipo ad un altro. 

Aritmetica 

Eseguire funzioni aritmetiche. 

Intrinseche di 

Fornire procedure e funzioni addizionali al livello 

livello Esteso 

Esteso del Pascal. 

! 

1 

Intrinseche di 

! 

Fornire procedure e funzioni addizionali al livello 

livello Sistema 

di Sistema del Pascal. 

Intrinseche 
di stringhe 

' Operare sui dati di tipo STR1NG e LSTR1NG. 

Libreria 

1 Disponibilità’ nella libreria runtime di Pascal: esse 
non sono predichiarate e devono quindi essere dichia- 

ì 

rate con la direttiva EXTERN. 


Tabella 16-1 Categorie delle Procedure e Funzioni Disponibili 


CATEGORIE DELLE PROCEDURE E FUNZIONI DISPONIBILI 

11 resto di questo capitolo e' suddiviso in due sezioni. La prima sezione 
descrive ognuna delle categorie contenute nella tabella precedente e 
contiene la lista delle procedure e funzioni appartenenti a ciascuna 
categoria. La seconda sezione contiene la lista in ordine alfabetico di 
tutte le procedure e funzioni disponibili. Per ogni procedura e funzione 
vengono forniti la sintassi, la descrizione, gli esempi e le annotazioni. 
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PROCEDURE E FUNZIONI DI FILE SYSTEM 

II file System del Pascal ammette un certo numero di procedure e 
funzioni che permettono di operare su file con modi di accesso e 
strutture diversi. Queste procedure e funzioni appartengono a tre 
categorie, come illustrato nella tabella 16-2. 


CATEGORIA 

1 PROCEDURE 

FUNZIONI 

Primitive 

1 .«.. 

EOF 


! PAGE 

1 PUT 

RESET 

ì REWR1TE 

j 

EOLN 

1/0 di File-testo 

READ 

| READLN 

WRITE 

j WRITELN 


1/0 di livello 

! ASS1GN 

j 

Esteso 

j CLOSE 

; D1SCARD 

READSET 

READFN 
; SEEK 



Tabella 16-2 Procedure e Funzioni di File System 

Per ulteriori dettagli su ognuna di tali procedure e funzioni si può' 
vedere il Capitolo 17, "Procedure e Funzioni Orientate su File". 


PROCEDURE DI ALLOCAZIONE DINAMICA 

Due procedure, NEW e DISPOSE, permettono l'allocazione e la deallocazione 
dinamica di strutture dati durante il runtime. La procedura NEW alloca 
una variabile nello heap, la DISPOSE ne effettua la deallocazione. 


PROCEDURE E FUNZIONI DI CONVERSIONE DATI 

Le seguenti procedure permettono di convertire i dati da un tipo ad un 
altro: 


CHR 

FLOAT 

FL0AT4 

ODD 

ORD 


PACK 

PRED 

ROUND 

R0UND4 

SUCC 


TRUNC 

TRUNC4 

UNPACK 

WRD 







Quattro di queste procedure convertono qualsiasi tipo ordinale in un 
particolare tipo ordinale: 


1 . 

CHR 

(ordinale) 

a 

CHAR 

2. 

ODD 

(ordinale) 

a 

BOOLEAN 

3. 

ORD 

(ordinale) 

a 

1NTEGER 

4. 

URD 

(ordinale) 

a 

WORD 


Anche PRED e SUCC operano su tipi ordinali. 

Sei routine di conversione effettuano la conversione tra 1NTEGER o 
1NTEGER4 e REAL: 

1. FLOAT converte 1NTEGER a REAL 

2. FL0AT4 converte 1NTEGER4 a REAL 

3. ROUND converte REAL a 1NTEGER 

4. R0UND4 converte REAL a 1NTEGER4 

5. TRUNC converte REAL a 1NTEGER 

6. TRUNC4 converte REAL a 1NTEGER4 

PACK e UNPACK trasferiscono componenti tra array packed e unpacked. 


FUNZIONI ARITMETICHE 

Tutte le funzioni aritmetiche ammettono un parametro CONSTS di tipo REAL4 
o REAL8, oppure un tipo compatibile con 1NTEGER (detto "numerico" nella 
lista). ABS e SQR ammettono anche valori di tipo WORD e 1NTEGER4. 

Tutte le funzioni che operano su dati REAL effettuano un controllo di 
validità' sul dato (dato non inizializzato). Vengono pure controllate 
particolari condizioni di errore con relativa emissione di messaggio di 
errore runtime. 

Se e' attivo l’indicatore di controllo matematico, l'uso errato delle 
funzioni ABS e SQR su dati di tipo 1NTEGER, WORD e 1NTEGER4 genera un 
messaggio di errore runtime; se l'indicatore non e' attivo, allora il 
risultato di un'operazione errata e' indefinito. 

La tabella 16-3 contiene tutte le funzioni aritmetiche disponibili e 
tutte le routine chiamate, a seconda se viene richiesta la singola o la 
doppia precisione. 
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NOME 

OPERAZIONE 

REAL4 

1 

REAL8 

ABS 

ARCTAN 

Valore assoluto 

Arco tangente 

1 

(codice in linea) ; 
ATSRQQ i 

(codice in linea) 

ATDRQQ i 

COS 

Coseno 

CNSRQQ 1 

CNDRQQ 

EXP 

Esponenziale 

EXSRQQ 

EXDRQQ 

LN 

Logaritmo naturale 

LNSRQQ ; 

LNDRQQ 

SIN 

Seno 

SNSRQQ 

SNDRQQ 

SQR 

Quadrato 

(codice in linea) i 

(codice in linea) 

SQRT 

________ 

Radice quadrata 

SRSRQQ 1 

■ 

SRDRQQ 

. 


Tabella 16-3 Funzioni Aritmetiche Predichiarate 

La libreria di runtime MS-FORTRAN contiene molte funzioni addizionali 
REAL4 e REAL8, come illustrato nella tabella 16-4. 11 loro uso prevede 
che vengano dichiarate con la direttiva EXTERN. 


OPERAZIONE 

REAL4 

_j___ 

| REAL8 

Arco coseno 

\ 

ACSRQQ 

i 

ACDRQQ 

Troncamento 

i AISRQQ 

1 A1DRQQ 

Arrotondamento 

ANSRQQ 

ANDRQQ 

Arco seno 

! ASSRQQ 

ASDRQQ 

Arco tangente A/B 

! A2SRQQ 

! A2DRQQ 

Coseno iperbolico 

i CHSRQQ 

! CHDRQQ 

Logaritmo decimale 

LDSRQQ 

LDDRQQ 

Modulo 

i 'MDSRQQ 

MDDRQQ 

Minimo 

MNSRQQ 

1 MNDRQQ 

Massimo 

MXSRQQ 

1 MXDRQQ 

Potenza (REAL8**INTG4) 

1 

PIDRQQ 

Potenza (REAL4**1NTG4) 

! PISRQQ 

! 

Potenza (REAL ** REAL) 

PRSRQQ 

j PRDRQQ 

Seno iperbolico 

ì SHSRQQ 

SHDRQQ 

Tangente iperbolica 

! THSRQQ 

THDRQQ 

Tangente 

l TNSRQQ 

1 TNDRQQ 


Tabella 16-4 Funzioni REAL della Libreria Runtime MS-FORTRAN 

Alcune comuni funzioni matematiche non sono standard nel Pascal, ma sono 
relativamente semplici da eseguire con istruzioni di programma oppure da 
definire come funzioni in un programma. Seguono alcuni esempi: 

SIGN (X) e’ ORD (X > 0) - ORD (X < 0) 

POWER (X, Y) e' EXP (Y * LN (X)) 

E 1 possibile anche scrivere le proprie funzioni in Pascal per ottenere le 
medesime cose. A funzioni di questo genere e 1 opportuno associare 
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l'attributo PURE (per ottenere un codice piu' efficiente). 
Ad esempio: 


FUNCT10N POWER (A, 8: REAL) : REAL [PURE]; 
BEG1N 

1F A <= 0 THEN 

ABORT ('Nonplus reai to power', 24, 0); 
POWER := EXP (B * LN (A)); 

END; 


FUNZIONI E PROCEDURE INTRINSECHE DI LIVELLO ESTESO 

Le seguenti funzioni e procedure sono disponibili al livello Esteso di 
Pascal : 


ABORT 

EVAL 

LOWORD 

BYLONG 

H1BYTE 

RESULT 

BYWORD 

H1W0RD 

S1ZE0F 

DECODE 

LOBYTE 

UPPER 

ENCODE 

LOWER 



Molte di queste routine vengono usate per comporre e scomporre elementi 
di uno, due e quattro byte, cioè' : H1BYTE, LOBYTE, BYWORD, H1W0RD, 
LOWORD, e BYLONG. 

ENCODE e DECODE convertono variabili da formato interno a formato stringa 
e viceversa. ABORT genera un errore runtime. 

Le altre routine, EVAL, LOWER, UPPER, RESULT e S1ZE0F, vengono usate in 
situazioni particolari (descritte per ogni funzione nella sezione "Elenco 
delle Funzioni e Procedure" in questo capitolo). 

FUNZIONI E PROCEDURE INTRINSECHE DI LIVELLO DI SISTEMA 

Alcune procedure e funzioni addizionali sono disponibili al livello di 
Sistema del Pascal: 

FILLC MOVESL 
FILLSC MOVESR 
MOVEL RETYPE 
MOVER 

Le procedure MOVE e F1LL effettuano operazioni a basso livello su 
stringhe di byte. RETYPE cambia il tipo di un'espressione in modo 
arbitrario. 
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ROUTINE INTRINSECHE DI STRINGHE 

Le prestazioni intrinseche di stringhe sono fornite da un insieme di 
procedure e funzioni, alcune delle quali operano sui tipi STR1NG e 
LSTR1NG, ed altre solamente su STR1NG: 


NOME 

Ì 

| 

PARAMETRO 

CONCAT 

STR1NG 

DELETE 

STR1NG 

1NSERT 

STR1NG 

COPYLST 

STR1NG 

COPYSTR 

STR1NG o LSTR1NG . 

P0S1TN 

STR1NG o LSTR1NG 

SCANEQ 

STR1NG o LSTR1NG 

SCANNE 

STR1NG o LSTR1NG 


Tabella 16-5 Procedure e Funzioni Stringa 


PROCEDURE E FUNZIONI DI LIBRERIA 

Le seguenti routine non sono predichiarate, ma sono disponibili nella 
libreria runtime del Pascal. Esse devono essere dichiarate, con la 
direttiva EXTERN, prima di essere usate in un programma. 

1. Routine di inizializzazione e terminazione. 

Le routine 8EG0QQ e ENDOQQ vengono richiamate rispettivamente durante 
le fasi di inizializzazione e terminazione. Esse possono essere usate 
per richiamare il debugger o per emettere, su video, messaggi per 
l'utente (come la data di esecuzione del programmma). BEGXQQ può' 
essere usata per far ripartire un programma e ENDXQQ per farlo 
terminare. 

2. Routine di gestione dello heap. 

Le routine di gestione dello heap fanno da complemento a quelle 
standard NEW e DISPOSE. Esse includono: 

ALLHQQ 

FREECT 

MARKAS 

MEMAVL 

RELEAS 









3. 


Routine di interruzione. 


Queste routine gestiscono le interruzioni, i 
varia da macchina a macchina; esse sono: 

ENAB1N 

D1SAB1N 

VECT1N 


■ i 

i 

loro modo di operare j 


4. Routine di 1/0 da terminale. 

i 

Le seguenti routine gestiscono in modo diretto l'input e l'output da i 

terminale: i 

[ 

1 

GTYUQQ . i 

PTYUQQ 1 

PLYUQQ 


5. Routine di semaforo. 

i 

<■ 4 I 

Le due procedure L0CKE0 e UNLOCK permettono l'uso di un semaforo 
binario. Esse possono essere usate per assicurare l'accesso 
esclusivo ad una risorsa comune. 

6. Funzioni aritmetiche senza overflow. 

Queste funzioni implementano un'aritmetica su 16 e 32 bit. Viene 
ritornato l'eventuale overflow o riporto senza chiamare le routine di 
errore. 

LADDOK 

LMULOK 

SADDOK 

SMULOK 

UADDOK 

UMULOK 


7. Routine di clock. 

Queste routine gestiscono le informazioni sul clock di sistema: 

TIME 

DATE 

T1CS 
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ELENCO DELLE FUNZIONI E PROCEDURE 

Questa sezione contiene un elenco di tutte le funzioni e procedure 
disponibili, sia quelle predichiarate che quelle di libreria da 
dichiarare EXTERN. Ogni routine dell'elenco comprende l'intestazione, la 
categoria cui appartiene l'operazione da effettuare e la descrizione di 
cosa fa la funzione. Vengono forniti note ed esempi appropriati. Le 
intestazioni date 'sono le stesse per gli operandi REAL4 o REAL8, a meno 
che siano specificate diverse indicazioni. 

PROCEDURE ABORT (CONST STRING, WORD, WORD); 

E' una procedura intrinseca di livello Esteso. Essa termina l'esecuzione 
di un programma allo stesso modo di un errore interno runtime. STRING (o 
LSTR1NG) e' un messaggio di errore. 11 parametro STRING e' di tipo CONST, 
non CONSTS. La prima WORD contiene un codice di errore (vedi l'Appendice 
H, "Messaggi di Errore", per i codici di errore); la seconda WORD può' 
contenere qualsiasi valore. Essa viene qualche volta usata per ritornare 
un codice di errore di file da parte del sistema operativo. 

I parametri, le informazioni sullo stato della macchina (contatore di 
programma, puntatore di ambiente, puntatore di stack), e la posizione 
sorgente della chiamata ABORT (se sono attivi gli indicatori $LINE e/o 
$ENTRY) vengono resi disponibili in un messaggio di terminazione oppure, 
passati al package di debug. 

Se l'indicatore $RUNTIME e' attivo, viene emesso nel messaggio di errore 
anche l'indirizzo della procedura o funzione nella quale ABORT e' stata 
richiamata. Se $RUNTIME e' attivo, gli indicatori $LINE e $ENTRY non 
devono essere presenti e le routine nel file sorgente devono richiamare 
solamente altre routine $RUNTIME. 

FUNCTION ABS (X : NUMERIC) : NUMERIC; 

E' una funzione aritmetica. Ritorna il valore assoluto di X. Sia X che il 
valore di ritorno hanno lo stesso tipo numerico: REAL4, REAL8,.INTEGER, 
WORD o 1NTEGER4. Dato che i valori WORD non hanno segno, ABS(X) ritorna 
sempre X se X e' di tipo WORD. 

FUNCTION ACSRQQ (CONSTS A : REAL4) : REAL4; 

FUNCTION ACDRQQ (CONSTS A : REAL8) : REAL8; 

Sono funzioni aritmetiche. Ritornano l'arcocoseno di A. Sia A che il 
valore di ritorno sono dello stesso tipo : REAL4 o REAL8. Queste 
funzioni appartengono alla libreria runtime dell'MS-FORTRAN e devono 
essere dichiarate EXTERN prima dell'uso, se 1'MS-FORTRAN e' disponibile 
sulla macchina specifica. 

FUNCTION A15RQQ (CONSTS A : REAL4) : REAL4; 

FUNCTION A1DRQQ (CONSTS A : REAL8) : REAL8; 

Sono funzioni aritmetiche. Ritornano la parte intera di A, senza 
arrotondamento. Sia A che il valore di ritorno sono di tipo REAL4 o 
REAL8. Queste funzioni appartengono alla libreria runtime dell'MS- 





FORTRAN e devono essere dichiarate EXTERN prima dell'uso, se l'MS-FORTRAN 
e* disponibile sulla macchina specifica. 

FUNCTION ALLHQQ (SIZE : WORD) : WORD; 

E' una routine di libreria che gestisce lo heap. Ritorna il valore zero 
se lo heap e' pieno, il valore uno se c'e' un errore nella struttura 
dello heap, oppure MAXWORD se il processo di allocazione e' stato 
interrotto. Altrimenti, essa ritorna il valore del puntatore alla 
variabile allocata avente la dimensione (SIZE) richiesta. 

Generalmente ALLHQQ viene usata con la funzione RETYPE. Ad esempio: 

P_VAR := RETYPE (P TYPE, ALLHQQ (28)); 

{RETYPE converte iT valore ritornato da ALLHQQ (28)} 

{nel tipo P__TYPE. Questo valore e' assegnato a P_VAR.} 

1F WRD (P_VAR) < 2 THEN G0_AB0RT; 

{P_VAR e' controllata in caso di heap pieno} 

(o di errore di struttura dello heap.} 

FUNCTION ANSRQQ (CONSTS A : REAL4) : REAL4; 

FUNCTION ANDRQQ (CONSTS A : REAL8) : REAL8; 

Sono funzioni aritmetiche. Analogamente alle funzioni A1SRQQ e A1DRQQ, 
esse ritornano la parte intera di A, pero' con arrotondamento per 
eccesso. Sia A che il valore di ritorno sono di tipo REAL4 o REAL8. 
Queste funzioni appartengono alla libreria runtime dell’MS-FORTRAN e 
devono essere dichiarate EXTERN nel programma che ne fa uso, se l'MS- 
FORTRAN e’ disponibile sulla macchina specifica. 

FUNCTION ARCTAN (X : REAL) : REAL; 

E' una funzione aritmetica. Ritorna 1 1 arcotangente di X in radianti. Sia 
X che il valore di ritorno sono di tipo REAL. Per forzare una precisione 
particolare, occorre invece usare ATSRQQ (CONSTS REAL4) e/o ATDRQQ 
(CONSTS REAL8). 

FUNCTION ASSRQQ (CONSTS A : REAL4) : REAL4; 

FUNCTION ASDRQQ (CONSTS A : REAL8) : REAL8; 

Sono funzioni aritmetiche. Ritornano il valore dell'arcoseno di A. Sia A 
che il valore di ritorno sono di tipo REAL4 o REAL8. Queste funzioni 
appartengono runtime dell'MS-FORTRAN e devono essere dichiarate EXTERN 
nel programma che ne fa uso, se l'MS-FORTRAN e' disponibile sulla 
macchina specifica. 

PROCEDURE ASSIGN (VAR F; CONSTS N : STRINO); 

E' una procedura di file System (1/0 di livello Esteso). Assegna il nome 
contenuto in una STR1NG (o LSTRING) al file F. 

Vedere "Procedure di Livello Esteso", nel Capitolo 17, per una 
descrizione di ASSIGN. 
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FUNCTION ATSRQQ (C0N5TS A : REAL4) : REAL4; 

FUNCTION ATDRQQ (CONSTS A : REAL8) : REAL8; 

Vedere FUNCTION ARCTAN. 

FUNCTION A25RQQ (A, B : REAL4) : REAL4; 

FUNCTION A2DRQQ (A, B : REAL8) : REAL8; 

Sono funzioni aritmetiche. Ritornano 1'arcotangente di (A/B). Sia A e B 
che il valore di ritorno sono di tipo REAL4 o REAL8. Queste funzioni 
appartengono alla libreria runtime dell'MS-FORTRAN e devono essere 
dichiarate EXTERN dal programma che ne fa uso, se l'MS-FORTRAN e’ 
disponibile sulla macchina specifica. 

PROCEDURE BEGOQQ; 

E' una routine di libreria (inizializzazione). BEGOQQ viene chiamata in 
fase di inizializzazione, ed e' usata in alternativa alla versione di 
default. Comunque e' possibile scrivere la propria versione di BEGOQQ: 
ciò' può' essere utile per richiamare un debugger oppure per emettere su 
video messaggi utente (come ad esempio la data di esecuzione). 

Vedere anche PROCEDURE ENDOQQ. 

PROCEDURE BEGXQQ; 

E' una routine di libreria (inizializzazione). Dopo la fase di 
concatenamento e di caricamento del programma, BEGXQQ e' il punto 
d'entrata del programmma. Analogamente alla routine generica di 
inizializzazione, BEGXQQ effettua le seguenti operazioni: 

1. inizializza lo stack e lo heap 

2. inizializza il file System 

3. chiama BEGOQQ 

4. chiama il corpo del programma. 

BEGXQQ può' essere usata per ripartire, dopo qualche errore catastrofico 
in un sistema ROM. Richiamando questa procedura non si tiene conto pero’ 
di chiudere i file aperti in precedenza. Non vengono reinizializzate le 
variabili presenti, in origine, nella sezione VALUE oppure quelle con 
l'indicatore di inizializzazione. 

FUNCTION BYLONG (INTEGER-WORD, INTEGER-WORD) : INTEGER4; 

E' una funzione intrinseca di livello Esteso. Converte WORD o INTEGER 
(oppure LOWORD di 1NTEGER4) in un valore INTEGER4. BYLONG concatena i 
suoi operandi: 

BYLONG (A, B) = ORD (LOWORD (A)) * 65535 + WRD (H1W0RD (B)) 

Se il primo valore e' di tipo WORD, il bit piu' significativo diventa il 
segno del risultato. 
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FUNCT10N BYWORD (ONE-BYTE, ONE-BYTE) : WORD; 


E' una funzione intrinseca di livello Esteso. Converte byte (oppure 
LOBYTE di 1NTEGER o WORD) in un valore WORD. Accetta due parametri di 
qualsiasi tipo ordinale. BYWORD ritorna un valore WORD con il primo byte 
nella posizione piu' significativa e con il secondo byte nella posizione 
meno significativa: 

BYWORD (A, B) = LOBYTE (A) * 256 + LOBYTE (B) 

Se il primo valore e' di tipo WORD, il bit piu 1 significativo diventa il 
segno del risultato. 


FUNCTION CHR (X : 0RD1NAL) : CHAR; 


E' una funzione di conversione dati. Converte qualsiasi tipo ordinale in 
CHR. 11 risultato in codice ASCII corrisponde a ORD (X). Questa e' 
un'estensione dello standard ISO, il quale richiede che X sia di tipo 
1NTEGER. Viene ritornato un errore se ORD(X) > 255 oppure ORD(X) < 0. 
Questo errore viene rilevato soltanto quando il controllo di variabilità' 
e' attivo. 


FUNCTION CHSRQQ (CONSTS A : REAL4) : REAL4; 

FUNCTION CHDRQQ (CONSTS A : REAL8) : REAL8; 

Sono funzioni aritmetiche. Ritornano il coseno iperbolico di A. Sia A che 
il valore di ritorno sono di tipo REAL4 o REAL8. Queste funzioni 
appartengono alla libreria runtime dell’MS-FORTRAN e devono essere 
dichiarate EXTERN dal programma che ne fa uso, se l'MS-FORTRAN e' 
disponibile sulla macchina specifica. 

PROCEDURE CLOSE (VAR F); 

E* una procedura di file System (1/0 di livello Esteso). Provvede alla 
chiusura di un file, assicurando la corretta terminazione dell'accesso al 
file. 

Vedere "Procedure di Livello Esteso", nel Capitolo 17, per una 
descrizione di CLOSE. 


FUNCTION CNSRQQ (CONSTS A : REAL4) : REAL4; 
FUNCTION CNDRQQ (CONSTS A : REAL8) : REAL8; 

Vedere FUNCTION COS. 


PROCEDURE CONCAT (VARS D : LSTR1NG; CONSTS S : STR1NG); 

E' una procedura intrinseca su stringhe. Concatena S alla fine di D. La 
lunghezza di D viene incrementata della lunghezza di S. Viene emesso un 
errore quando la lunghezza di D e' troppo piccola, cioè’ se 


UPPER (D) < D.LEN + UPPER (S) 


PROCEDURE COPYLST (CONSTS S : STRING; VARS D : LSTR1NG); 

E' una procedura intrinseca su stringhe. Copia S su D di tipo LSTR1NG. 
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La lunghezza di D diventa UPPER (5). Viene emesso un errore se la 
lunghezza di 5 e' maggiore della massima lunghezza di D, cioè' se 

UPPER (S) > UPPER (D) 

PROCEDURE COPYSTR (CONSTS S : STRING; VARS D : STR1NG); 

E’ una procedura intrinseca su stringhe. Copia S su D di tipo STRING. 
Nel caso che UPPER (S) sia minore di UPPER (D), il resto di D viene 
riempito con spazi vuoti. Viene emesso un errore se la lunghezza di 5 e' 
maggiore della massima lunghezza di D, cioè' se 

UPPER (5) > UPPER (D) 

FUNCT10N COS (X : NUMER1C) : REAL; 

E' una funzione aritmetica. Ritorna il coseno di X in radianti. Sia X 
che il valore di ritorno sono di tipo REAL. Per precisioni particolari 
diverse da REAL occorre usare CNSRQQ (CONSTS REAL4) e/o CNDRQQ (CONSTS 
REAL8). 

PROCEDURE DATE (VAR S : STRING); 

E' una procedura di clock. Questa procedura, quando disponibile, 
memorizza la data di sistema nella variabile S. Nel caso she 5 sia un 
tipo LSTR1NG, occorre impostare la lunghezza desiderata prima di chiamare 
la procedura. 11 formato dipende dal sistema operativo usato. 

FUNCTION DECODE (CONSTS LSTR: LSTRING, X:M:N) : BOOLEAN; 

E' una funzione intrinseca del livello Esteso. Converte la stringa di 
caratteri contenuta in LSTRING nella sua rappresentazione interna, e la 
assegna a X. Se la stringa non contiene codice valido ASCII compatibile 
con X, DECODE ritorna un valore FALSE ed il valore di X rimane 
indefinito. 

DECODE opera esattamente come la procedura READ, inclusi i parametri M e 
N (vedere "Formati READ”, nel Capitolo 17, per una loro descrizione). 
Quando X e 1 un subrange, DECODE ritorna il valore FALSE se il valore di X 
e' fuori del campo di variabilità' (indipendentemente dalla presenza o 
meno dell'indicatore di controllo di variabilità'). Nel tipo LSTRING 
vengono ignorati gli spazi iniziali e di trascinamento. Tutti gli altri 
caratteri in LSTRING devono far parte della rappresentazione. 

X deve essere di tipo INTEGER, WORD, enumerato, uno dei loro subrange, 
BOOLEAN, REAL4, REAL8, 1NTEGER4, oppure un puntatore (i tipi indirizzo 
devono avere il suffisso .R o .5). 

In un ambiente a memoria segmentata, il parametro LSTR deve risiedere nel 
segmento dati di default. 

Vedere anche la FUNCTION ENCODE. 

PROCEDURE DELETE (VARS D : LSTRING; I t N : INTEGER); 

E’ una procedura intrinseca di stringa. Cancella N caratteri da D 
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iniziando con D[1]. Viene emesso un segnale di errore quando si tenta di 
cancellare piu' caratteri di quanti possibile, cioè' quando: 

D.LEN < (1 + N - 1) 

PROCEDURE DISBIN; 

E' una routine di libreria (interruzione). Insieme alle procedure ENAB1N 
e VECT1N, DISBIN provvede alla gestione delle interruzioni. DISBIN 
disabilita le interruzioni; ENAB1N le abilita; VECT1N fornisce un vettore 
di interruzione. Gli effetti di queste procedure variano a seconda della 
macchina. Si può' vedere l'Appendice A, "Caratteristiche di 
Implementazione", nel manuale "Linguaggio Pascal Guida Utente", per avere 
informazioni sull 1 implementazione desiderata. 

PROCEDURE DISCARD (VAR F); 

E' una procedura di file System (I/O di livello Esteso). Chiude e 
cancella un file aperto. 

Si può' vedere "Procedure di Livello Esteso", nel Capitolo 17, per una 
descrizione di DISCARO. 

PROCEDURE DISPOSE (VARS P : POINTER); 

E 1 una procedura di allocazione dinamica (forma contratta). Libera la 
memoria usata per contenere la variabile indicata da P. P deve essere un 
puntatore valido; esso non deve essere N1L o non inizializzato, e non 
deve indicare un elemento dello heap che e' stato già' reso disponibile. 
Questi casi vengono controllati se l'indicatore di controllo NIL e' 
presente. 

P non deve essere un parametro di riferimento o un puntatore di 
un'istruzione WITH di record, pero' questi errori non vengono segnalati. 
La DISPOSE di un'istruzione WITH di record può' essere fatta senza 
problemi alla fine dell'istruzione WITH stessa. 

Se la variabile e' di tipo super array, oppure un record con varianti, si 
può' usare senza problemi la forma contratta di DISPOSE per rilasciare la 
variabile, senza tener conto se questa e' stata allocata usando la forma 
lunga o contratta di NEW. L'uso della forma contratta di DISPOSE su una 
variabile dello heap allocata con la forma lunga di NEW e' un errore ISO 
che il Pascal non rileva. 

PROCEDURE DISPOSE (VARS P : POINTER; TI, T2....TN : TAGS); 

E' una procedura di allocazione dinamica (forma lunga). La forma lunga 
di questa procedura e' esattamente come la forma contratta. La forma 
lunga controlla pero' che la dimensione della variabile sia congruente 
con quella del campo etichettato oppure con i valori dei limiti superiori 
di array (TI, T2, ..., TN). Questi valori etichettati devono essere 
uguali a quelli definiti nella corrispondente NEW. 

Si può' vedere anche la funzione S1ZE0F, la quale fa uso degli stessi 
valori dei limiti superiori per ritornare il numero di byte di una 
variabile. 
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PROCEDURE ENABIN; 

E' una routine di libreria (gestione delle interruzioni). Insieme a 
D1SB1N e VECT1N, questa procedura gestisce le interruzioni. ENABIN 
abilita le interruzioni. Gli effetti di queste procedure possono variare 
a seconda della macchina. Per avere ulteriori dettagli, si può' vedere 
l'Appendice A, "Caratteristiche di Implementazione", nel manuale 
"Linguaggio Pascal Guida Utente". 

FUNCT10N ENCODE (VAR LSTR : LSTRING, X:M:N:) : BOOLEAN; 

E 1 una funzione intrinseca del livello Esteso. Converte l'espresione X 
nella sua rappresentazione ASCII esterna e memorizza questa 
rappresentazione in LSTR. Essa ritorna il valore TRUE, a meno che LSTR1NG 
sia troppo piccola per contenere la stringa generata. In questo caso 
ENCODE ritorna FALSE ed il valore di LSTR rimane indefinito. ENCODE 
funziona esattamente come la procedura URITE, inclusi i parametri M e N 
(per una loro descrizione si può' vedere "Formati URITE", nel Capitolo 
17). 

X deve essere di uno di questi tipi: 1NTEGER, UORD, enumerato, oppure uno 
dei loro subrange, BOOLEAN, REAL4, REAL8, 1NTEGER4, oppure un puntatore 
(il tipo indirizzo ha il suffisso .R o .S). 

In un ambiente di memoria segmentata, il parametro LSTR deve risiedere 
nel segmento dati di default. 

Vedere anche la FUNCTION DECODE. 

PROCEDURE ENDOQQ; 

E 1 una procedura di libreria (terminazione). ENDOQQ viene chiamata in 
fase di terminazione, e la corrispondente procedura di default non viene 
richiamata. E' comunque possibile scrivere la propria versione di ENDOQQ 
allo scopo di richiamare un debugger oppure per emettere su video 
messaggi utente (come ad esempio la data di esecuzione). 

Dato che ENDOQQ viene chiamata dopo la gestione degli errori, se ENDOQQ 
richiama un errore, il risultato e' un ciclo infinito di terminazione. 
Vedere anche PROCEDURE BEGOQQ. 

PROCEDURE ENDXQQ; 

E' una procedura di terminazione. ENDXQQ e' la procedura generica di 
terminazione ed esegue le seguenti azioni: 

1. richiama ENDOQQ 

2. termina il file System (chiudendo tutti i file aperti) 

3. ritorna al sistema operativo (oppure a qualunque componente abbia 
chiamato BEGXQQ). 

ENDXQQ può' essere utile per terminare l'esecuzione di un programma 
quando si e' all'interno di una procedura o funzione, senza richiamare 
ABORT. ENDXQQ corrisponde alla procedura HALT presente in altri 





compilatori Pascal. 


FUNCT10N EOF : BOOLEAN; 

FUNCTION EOF (VAR F) : BOOLEAN; 

E' una funzione di file System. Indica se la posizione corrente del file 
e 1 alla fine del file F per i modi di accesso SEQUENTIAL e TERMINAL. EOF 
senza parametri corrisponde a EOF (INPUT). 

Si può' vedere "EOF e EOLN", nel Capitolo 17, per una descrizione piu' 
completa di EOF. 

FUNCTION EOLN : BOOLEAN; 

FUNCTION EOLN (VAR F) : BOOLEAN; 

E' una funzione di file System. Indica se la posizione corrente del file 
e 1 alla fine di una linea nel textfile F. EOLN senza parametri 
corrisponde a EOLN (INPUT). 

Si può' vedere "EOF e EOLN", nel Capitolo 17, per una descrizione piu' 
completa di EOLN. 

PROCEDURE EVAL (EXPRESSION, EXPRESSION,...); 

E 1 una procedura intrinseca del livello Esteso. Valuta soltanto parametri 
di espressioni, ma accetta qualsiasi numero di parametri di qualsiasi 
tipo. EVAL viene usata per valutare un'espressione come un'istruzione; 
esso e’ comunemente usata per valutare una funzione soltanto nei suoi 
effetti collaterali, senza far uso del suo valore di ritorno. 

FUNCTION EXSRQQ (CONSTS A : REAL4) : REAL4; 

FUNCTION EXDRQQ (CONSTS A : REAL8) : REAL8; 

Vedere FUNCTION EXP. 

FUNCTION EXP (X : NUMERICI : REAL; 

E' una funzione aritmetica. Ritorna il valore esponenziale di X (cioè' e 
elevato ad X). Sia X che il valore di ritorno sono di tipo REAL. In caso 
di precisione particolare occorre invece usare le routine EXSRQQ (CONSTS 
REAL4) e/o EXDRQQ (CONSTS REAL8). 

PROCEDURE FILLC (D : ADRMEM; N : WORD; C : CHAR); 

E' una procedura intrinseca di livello di Sistema. Riempie D con N copie 
del carattere C. Non viene effettuato alcun controllo sui limiti di D. 
Vedere anche PROCEDURE FILLSC, per tipi ad indirizzo segmentato. Le 
procedure MOVE e FILL accettano parametri di tipo ADRMEM e ADSMEM; dato 
che tutti i tipi ADR (o ADS) sono compatibili, possono essere passate 
variabili o costanti di tipo ADR (o ADS). Questo modo di procedere e' 
pericoloso, ma talvolta utile. 
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PROCEDURE F1LLSC (D : ADSMEM; N : WORD; C : CHAR); 

E' una procedura intrinseca di livello di Sistema. Riempie D con N copie 
del carattere C. Non viene effettuato alcun controllo sui limiti di D. 

Per i tipi ad indirizzo relativo si può' vedere anche PROCEDURE F1LLC. Le 
procedure MOVE e F1LL accettano parametri di tipo ADRMEM e ADSMEM; dato 
che tutti i tipi ADR (o ADS) sono compatibili, possono essere passate 
variabili o costanti di tipo ADR (o ADS). Questo modo di procedere e' 
pericoloso, ma talvolta utile. 

FUNCT10N FLOAT (X : 1NTEGER) : REAL; 

E' una funzione di conversione dati. Converte un valore 1NTEGER in un 
valore REAL. Normalmente questa funzione non viene usata, poiché' la 
conversione 1NTEGER a REAL viene effettuata anche automaticamente. 
Tuttavia poiché' FLOAT e' usata dal package runtime, essa e' inclusa nel 
livello Standard. 

FUNCT10N FL0AT4 (X : 1NTEGER4) : REAL; 

E' una funzione di conversione dati. Converte un valore 1NTEGER4 in un 
valore REAL. Questa conversione viene effettuata anche automaticamente; 
e' possibile comunque perdere precisione (questo non e' un errore). 

FUNCT10N FREECT (S1ZE : WORD) : WORD; 

E' una funzione di libreria. Restituisce una valutazione del numero di 
volte in cui NEW può’ essere chiamata per allocare nello heap variabili 
lunghe S1ZE byte. FREECT tiene conto di blocchi resi disponibili e di 
blocchi liberi adiacenti; essa viene usata generalmente in congiunzione 
con la funzione SIZEOF. Tuttavia questa funzione non considera che nello 
stack qualsiasi spazio può’ essere necessario; e dato che generalmente lo 
e', allora il valore ritornato deve essere adeguatamente ridotto. 

Esempio : 


1F FREECT (SIZEOF (REC, TRUE, 5)) > 2 
THEN DO S0METH1NG 


PROCEDURE GET (VAR F); 


E' una procedura di file System. GET riporta 
nella variabile di buffer FA e fa avanzare 
posiziona lo stato della variabile di buffer 
Si può' vedere "GET e PUT", nel Capitolo 17, 


la componente corrente di F 
il puntatore di file, oppure 
al valore vuoto, 
per una descrizione di GET. 


FUNCT10N GTYUQQ (LEN : WORD; LOC : ADSMEM) : WORD; 


E' una funzione di libreria (1/0 da terminale). Legge un massimo di LEN 
caratteri dalla tastiera di terminale e li memorizza a partire 
dall'indirizzo LOC. 11 valore di ritorno contiene il numero di caratteri 
effettivamente letti. GTYUQQ legge sempre la linea di caratteri 
impostata. 1 caratteri che superano la lunghezza del buffer vengono 
persi. 



16-17 




Esempio: 


LSTR.LEN := GTYUQQ (UPPER (LSTR), ADS LSTR (1)); 

In congiunzione a PTYUQQ e PLYUQQ, GTYUQQ e' utile per effettuare I/O da 
terminale in un ambiente ad alte prestazioni. 

FUNCT10N H1BYTE (INTEGER-UORD) : BYTE; 

E' una funzione intrinseca del livello Esteso. Ritorna il byte piu' 
significativo di un 1NTEGER o WORD. A seconda della macchina, il byte 
piu' significativo può’ essere il primo o il secondo byte indirizzato 
della word. 

Vedere anche FUNCT10N LOBYTE. 

FUNCT10N H1U0RD (1NTEGER4) : WORD; 

E' una funzione intrinseca di livello Esteso. Ritorna la word piu' 
significativa dei quattro byte di 1NTEGER4. 11 bit del segno di 1NTEGER4 
diventa il bit piu' significativo di WORD. 

Vedere anche FUNCT10N LOWORD. 

PROCEDURE 1NSERT (CONSTS S:STRING; VARS D:LSTR1NG; IiINTEGER); 

E' una procedura intrinseca di stringa. Inserisce S a partire da D[1]. 
Viene emesso un errore se D e' troppo piccola, cioè' se: 

UPPER(D) < UPPER (5) + D.LEN + 1 

oppure se: 

D.LEN < 1 


FUNCT10N LADDOK (A, B: 1NTEGER4; VAR C: INTEGER4) : BOOLEAN; 

E' una routine di libreria (senza overflow aritmetico). Posiziona C 
uguale ad A sommato B. Insieme alla funzione LMULOK effettua 
l'aritmetica su 32 bit con segno senza causare un errore runtime, anche 
se l'indicatore di debugging e' attivo. 

Sia LADDOK che LMULOK ritornano il valore TRUE se non c'e 1 stato 
overflow, e FALSE in caso contrario. Queste routine sono utili in 
aritmetica a precisione estesa, oppure in aritmetica modulo 2A32, o 
ancora in aritmetica basata su dati in input dell'utente. 

FUNCT10N LDSRQQ (CONSTS A : REAL4) : REAL4; 

FUNCT10N LDDRQQ (CONSTS A : REAL8) : REAL8; 

Sono funzioni aritmetiche. Ritornano il logaritmo, in base 10, di A. Sia 
A che il valore di ritorno sono di tipo REAL4 o REAL8. Queste funzioni 
sono della libreria runtime del MS-FORTRAN e devono essere dichiarate 
EXTERN prima di essere usate, se l'MS-FORTRAN e' disponibile sulla 
macchina specifica. 
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FUNCTION LMULOK (A, B: INTEGER4; VAR C: INTEGER4) : BOOLEAN; 

| 

E' una routine di libreria (senza overflow aritmetico). Posiziona C 
uguale ad A moltiplicato B. Insieme alla funzione LADDOK, effettua 
l'aritmetica su 32 bit con segno senza causare un errore runtime' su 
overflow. La normale aritmetica può' causare un errore di runtime, anche 
se l'indicatore di debug non e' attivo. Sia LMULOK che LADDOK ritornano 
TRUE se non c'e* overflow, e FALSE se c'e'. Queste routine sono utili in 
aritmetica a precisione estesa, o in aritmetica modulo 2A32, o in 
aritmetica basata su dati in input dell'utente. 

I 

FUNCTION LN (X : READ : REAL; ' 

E' una funzione aritmetica. Ritorna il logaritmo, in base e, di X. Sia X 
che il valore di ritorno sono di tipo REAL. Per forzare una particolare 
precisione, si devono dichiarare ed usare le funzioni LNSRQQ (CONSTS 
REAL4) e/o LNDRQQ (CONSTS REAL8). Si verifica un errore se X e' minore o 
uguale a zero. 

FUNCTION LNSRQQ (CONSTS A : REAL4) : REAL4; 

FUNCTION LNDRQQ (CONSTS A : REAL8) : REAL8; 

Vedere FUNCTION LN. | 

FUNCTION LOBYTE (INTEGER-WORD) : BYTE; 

I 

I 

E' una funzione intriseca di livello Esteso. Ritorna il byte meno 
significativo di un 1NTEGER o WORD. A seconda dalla macchina, il byte 
meno significativo può' essere il primo o il secondo byte indirizzato i 

della word. 

Vedere anche FUNCTION H1BYTE. I 

FUNCTION LOCKED (VARS SEMAPHORE : WORD) : BOOLEAN; 

E' una funzione di libreria (gestione dei semafori). Se il semaforo e' 
disponibile, LOCKED ritorna il valore TRUE e pone il semaforo in stato 
non-disponibile. Altrimenti, LOCKED ritorna il valore FALSE. UNLOCK 
rende disponibile il semaforo. Dato che il semaforo e' binario, può' 
assumere soltanto due stati. 

Vedere anche PROCEDURE UNLOCK. 

FUNCTION LOUER (EXPRESSION) : VALUE; 

E' una funzione intrinseca del livello Esteso. LOWER accetta un solo 
parametro di uno dei seguenti tipi: array, set, enumerato oppure 
subrange. 11 valore ritornato da LOWER e' uno dei seguenti: 

il limite inferiore di un array 

il primo elemento disponibile di un insieme 

il primo valore di un tipo enumerato 

il limite inferiore di un subrange 
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LOWER usa il tipo, non il valore, dell'espressione. 11 valore ritornato 

da LOWER e' sempre una costante. ! 

Vedere anche FUNCT10N UPPER. ì 

j 

I 

FUNCT10N LOWORD (1NTEGER4) : WORD; ! 

ì 

E' una funzione intrinseca di livello Esteso. Ritorna la WORD meno [ 

significativa dei quattro byte di 1NTEGER4. 

Vedere anche FUNCT10N H1W0RD. j 

PROCEDURE MARKAS (VAR HEAPMARK : 1NTEGER4); 

E' una procedura di libreria (gestione dello heap). E' analoga alla 

procedura MARK presente in altri compilatori Pascal. MARKAS segna i 

limiti superiori ed inferiori dello heap. La procedura DISPOSE e', in ! 

generale, piu' potente, pero' MARKAS può' essere utile per conversioni da ! 

altri linguaggi Pascal. J \ 

In altri Pascal il parametro e' di tipo puntatore. Pascal ha bisogno di 
due parole per memorizzare i limiti dello heap dato che, in alcune 
implementazioni, lo heap cresce sia verso il limite superiore che verso 
quello inferiore. La variabile HEAPMARK non deve essere usata come un 
numero normale 1NTEGER4; essa deve essere caricata da MARKAS e quindi 

passata a RELEAS. I 

I 

Per usare MARKAS e RELEAS si deve passare una variabile 1NTEGER4, ad 
esempio M, come parametro VAR a MARKAS. MARKAS memorizza in M i limiti 
dello heap. Per liberare lo spazio dello heap occorre semplicemente 
richiamare la procedura RELEAS (M). 

MARKAS e RELEAS funzionano come descritto soltanto se non viene mai 
richiamata la procedura DISPOSE. 

FUNCT10N MDSRQQ (CONSTS A, B : REAL4) : REAL4; 

FUNCTION MDDRQQ (CONSTS A, B : REAL8) : REAL8; 

Sono funzioni aritmetiche. La funzione A modulo B e' definita come: 

MDSRQQ (A, B) = A - A1SRQQ (A / B) * B 
MDDRQQ (A, B) = A - AIDRQQ (A / B) * B 

Sia A che B sono di tipo REAL4 o REAL8. Queste funzioni appartengono alla 
libreria runtime dell’MS-FORTRAN e devono essere dichiarate EXTERN nel 
programma che ne fa uso, se l'MS-FORTRAN e' disponibile sulla macchina 
specifica. 

FUNCTION MEMAVL : WORD; 

E' una funzione di libreria (gestione dello heap). Ritorna il numero di 
byte disponibili tra lo stack e lo heap. MEMAVL funziona in modo analogo 
alla funzione MEMAVA1L nel Pascal UCSD. Se e' stata usata la procedura 
DISPOSE in precendenza, MEMAVL può' ritornare un valore inferiore al 
numero effettivo di byte disponibli. 
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FUNCTION MNSRQQ (CONSTS A, B : REAL4) : REAL4; 

FUNCTION MNDRQQ (CONSTS A, B : REAL8) : REAL8; 

Sono funzioni aritmetiche. Ritornano il valore piu' piccolo di A e B. 
Sia A che B sono di tipo REAL4 o REAL8. Queste funzioni appartengono alla 
libreria runtime del 1'MS-FORTRAN e devono essere dichiarate EXTERN dal 
programma che ne fa uso, se 1’MS-FORTRAN e' disponibile sulla specifica 
macchina. 

Vedere anche FUNCTION MXSRQQ e FUNCTION MXDRQQ. 

PROCEDURE MOVEL (S, D : ADRMEM; N : WORD); 

E' una procedura intrinseca di livello di Sistema. Trasferisce N 
caratteri (byte) da SA a DA, a partire dal primo byte di ciascun array. 
Indipendentemente dal valore del campo di variabilità' e dagli indicatori 
di controllo indice, non vengono effettuati controlli sui limiti degli 
array. 

Esempio: 

MOVEL (ADR 'New String Value', ADR V, 16) 

Per i tipi ad indirizzo segmentato si può' anche vedere PROCEDURE MOVESL. 
Per trasferire byte a sinistra, oppure quando i campi di variabilità' 
degli indirizzi non si sovrappongono, si devono usare MOVEL e MOVESL. 

Le procedure MOVE e F1LL assumono parametri di tipo ADRMEM e ADSMEM, ma 
poiché' tutti i tipi ADR (o ADS) sono compatibili, i tipi ADR (o ADS) di 
qualunque variabile o costante possono essere usati come parametri 
attuali. Questo modo di procedere e' pericoloso, ma talvolta utile. 

PROCEDURE MOVER (S, D : ADRMEM; N : WORD); 

E' una procedura intrinseca di livello di Sistema. E' analoga a MOVEL, 
con la differenza che il trasferimento comincia dall'ultimo byte di 
ciascun array. Si devono usare MOVER e MOVESR per trasferire byte a 
destra. Come per MOVEL, non c'e' controllo sui limiti degli array. 
Esempio: 

MOVER (ADR V[0], ADR V[4], 12) 

Per i tipi ad indirizzo segmentato si può’ vedere anche PROCEDURE MOVESR. 
Le procedure MOVE e FILL accettano parametri di tipo ADRMEM e ADSMEM; 
dato che tutti i tipi ADR (o ADS) sono compatibili, possono essere 
passate variabili o costanti di tipo ADR (o ADS). Questo modo di 
procedere e' pericoloso, ma talvolta utile. 

PROCEDURE MOVESL (S, D : ADSMEM; N : WORD); 

E' una procedura intrinseca di livello di Sistema. Trasferisce N 
caratteri (byte) da SA a DA iniziando dal primo byte di ciascun array. 
Indipendentemente dal valore del campo di variabilità' e dagli indicatori 
di controllo indice, non viene effettuato alcun controllo sui limiti 
degli array. 
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Esempio: 


MOVESL (ADS 'New String Valile', ADS V, 16) 

Per i tipi ad indirizzo relativo si può' vedere PROCEDURE MOVEL. Per 
trasferire byte a sinistra, o quando i campi di variabilità' degli 
indirizzi non si sovrappongono, si devono usare MOVEL e MOVESL. 

Le procedure MOVE a F1LL accettano parametri di tipo ADRMEM e ADSMEM; 
dato che tutti i tipi ADR (o ADS) sono compatibili, possono essere 
passate variabli o costanti di tipo ADR (o ADS). Questo modo di procedere 
e 1 pericoloso ma talvolta utile. 

PROCEDURE MOVESR (S, D : ADSMEM; N : WORD); 

E' una procedura intrinseca di livello di Sistema. E' analoga a MOVESL, 
con la differenza che il trasferimento comincia dall'ultimo byte di 
ciascun array. Si devono usare MOVER e MOVESR per trasferire byte a 
destra. Analogamente a MOVESL, non c'e' controllo sui limiti degli 
array. 

Esempio: 

MOVESR (ADR V[0], ADR V[4], 12) 

Per i tipi ad indirizzo relativo si può' vedere anche PROCEDURE MOVER. 

Le procedure MOVE e FILL accettano parametri di tipo ADRMEM e ADSMEM; 
dato che tutti i tipi ADR (o ADS) sono compatibili, possono essere 
passate variabili o costanti di tipo ADR (o ADS). Questo modo di 
procedere e' pericoloso, ma talvolta utile. 

FUNCT10N MXSRQQ (CONSTS A, B : REAL4) : REAL4; 

FUNCT10N MXDRQQ (CONSTS A, B : REAL8) : REAL8; 

Sono funzioni aritmetiche. Ritornano il valore massimo tra A e B. Sia A 
che B sono di tipo REAL4 o REAL8. Queste funzioni appartengono alla 

libreria MS-FORTRAN e devono essere dichiarate EXTERN dal programma che 
le utilizza, se 1'MS-FORTRAN e' disponibile sulla macchina specifica. 

Vedere anche FUNCT10N MNSRQQ e MNDRQQ. 

PROCEDURE NEW (VARS P : POINTER); 

E' una procedura di libreria (gestione dello heap, forma contratta). 
Alloca una nuova variabile V nello heap ed assegna a P il relativo 

puntatore (come parametro VARS). 11 tipo di V e' determinato dalla 
dichiarazione del puntatore P. Se V e' di tipo super array occorre usare 
la forma lunga di NEW. Se V e' un tipo record con varianti, vengono 
considerate le varianti con lunghezza maggiore: esse permettono cosi' 
l’utilizzo di ogni variante assegnata a PA. 

PROCEDURE NEW (VARS P : POINTER; TI f T2....TN : TAGS); 

E' una procedura di libreria (gestione dello heap, forma lunga). Alloca 
una nuova variabile con le varianti specificate dai valori etichetta da 
TI a TN. 1 valori etichetta vengono elencati nell'ordine in cui sono 
dichiarati. Possono essere omessi campi etichettati compresi tra 
l'iniziale e il finale. 
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Se tutti i valori etichetta sono costanti.il Pascal alloca soltanto lo 
spazio richiesto, allineato alla parola. 11 valore di ogni campo 
etichettato omesso viene considerato in modo da allocare la dimensione 
massima possibile. Se alcuni campi etichettati non sono costanti, il 
compilatore usa una delle due strategie: 

1. Assume che il primo campo etichettato non sia costante e che tutti i 
seguenti abbiano valori sconosciuti, e quindi alloca la massima 
dimensione. 

2. Genera una chiamata speciale runtime ad una funzione che calcola la 
dimensione del record dai valori etichetta variabili disponibili. 
Questo dipende dalla particolare implementazione. Un tale modo di 
procedere viene usato per DISPOSE e S1ZE0F. 

I valori dei campi etichettati devono essere impostati dopo la chiamata 
della NEW e non devono piu' essere cambiati. Il compilatore non esegue 
alcuna delle seguenti azioni: 

assegnazione di valori etichetta 

controllo della loro corretta inizializzazione 

controllo della non variazione del loro valore durante l'esecuzione. 

In accordo allo standard ISO, una variabile creata mediante la forma 
lunga di NEW ha queste caratteristiche: 

non può' essere usata come operando in un'espressione 

non può' essere passata come parametro 

non le si può' assegnare un valore 

II Pascal non controlla questi errori. I campi all'interno del record 
possono essere usati normalmente. 

L'assegnazione di un record di dimensione maggiore ad un altro di 
dimensione minore danneggia parte del contenuto dello heap. Questo errore 
e' difficile da riconoscere in fase di compilazione. Quindi, nel Pascal, 
ogni assegnazione di un record con varianti nello heap usa la lunghezza 
del record invece della lunghezza massima. 

Un'assegnazione in un campo di un record, se fatta usando le varianti 
sbagliate, può' distruggere parte di un'altra variabile nello heap oppure 
la struttura stessa dello heap. Questo errore non viene segnalato, se i 
valori di etichetta non sono espliciti . e corretti e se e' attivo 
l'indicatore di controllo di etichetta. 

Il livello Esteso permette l'uso di puntatore a super array. La forma 
lunga di NEW viene usata come descritto in precedenza, a parte il fatto 
che vengono forniti i limiti superiori dell'array al posto dei valori 
etichetta. Devono essere forniti tutti i limiti superiori. Essi possono 
essere costanti o espressioni; in ogni caso viene allocata soltanto la 
dimensione richiesta. 




L'array cui fa riferimento un puntatore non può 1 essere assegnato o 
paragonato come elemento unico; l'unica eccezione e' LSTRING. L'array 
intero può' essere passato come parametro di riferimento, se il parametro 
formale e 1 dello stesso tipo super array. Le componenti dell'array 
possono essere usate normalmente. 

FUNCT10N ODD (X : 0RD1NAL) : INTEGER; 

E' una funzione di conversione dati. Essa controlla il valore ordinale X 
per vedere se e' dispari. ODD e' TRUE soltanto se ORD (X) e‘ dispari; 
altrimenti e' FALSE. 

FUNCTION ORD (X : VALUE) : INTEGER; 

E' una funzione di conversione dati. Converte in INTEGER ogni valore dei 
tipi elencati nella tabella 16-6, secondo le regole date. 


TIPO DI X 


VALORE DI RITORNO 


INTEGER 

WORD <= MAX1NT 
WORD > MAX1NT 
CHAR 

Enumerato 

INTEGER4 

Puntatore 


X 

X 

X - 2 * (MAXINT + 1) (cioè 1 i 16 bit di partenza) 
Codice ASCII per X 

Posizione di X nella definizione di tipo a partire 
da 0 

I 16 bit meno significativi {cioè 1 come ORD 
(LOWORD (1NTEGER4))) 

Valore intero del puntatore 


Tabella 16-6 Conversione in INTEGER 

PROCEDURE PACK {CONSTS A: UNPACKED; I: INDEX; VARS Z: PACKED); 

Procedura di conversione dati. Trasferisce elementi da un array non 
impaccato ad un array impaccato. Se A e’ un ARRAY [M..N] OF T e Z e' un 
PACKED ARRAY [U..V] OF T, allora PACK (A, 1, Z) equivale a: 

FOR J := U TO V DO Z [J] := A [J - U + 1] 

In entrambi, PACK e UNPACK, il parametro I e' l'indice iniziale di A. 1 
limiti degli array ed il valore di 1 devono essere ragionevoli, cioè' il 
numero dei componenti di A da 1 a M deve essere grande almeno come il 
numero dei componenti di Z. L'indicatore di controllo di variabilità' 
controlla i limiti degli array. 
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PROCEDURE PAGE; 

PROCEDURE PAGE (VAR F); 

ì 

E' una procedura di file System. Provoca il salto all'inizio della nuova 
pagina quando viene stampato il file-testo F. PAGE senza parametri [ 
equivale a PAGE (INPUT). „ j 

Per una descrizione di PAGE si può' vedere "PAGE", nel Capitolo 17. 

FUNCT10N P1SRQQ (CONSTS A: REAL4; CONSTS B: 1NTEGER4) : REAL4; 

FUNCT10N P1DRQQ (CONSTS A: REAL8; CONSTS B: 1NTEGER4) : REAL8; ! 

Sono funzioni aritmetiche. Il valore di ritorno e' A**B (A elevato alla 
parte intera di B). A può' essere di tipo REAL4 o REAL8. B e' sempre di i 

tipo INTEGER4. Queste funzioni appartengono alla libreria runtime 

dell'MS-FORTRAN e devono essere dichiarate EXTERN dal programma che ne fa 
uso, se l'MS-FORTRAN e 1 disponibile sulla specifica macchina. I 

PROCEDURE PLYUQQ; 

E' una procedura di libreria (I/O da terminale). Scrive un carattere di . 

fine riga sul video. 

Insieme a GETYQQ e PTYUGG, PLYUQQ e' utile per effettuare I/O da 
terminale in un ambiente ad alte prestazioni. 

FUNCT10N POSITN (CONSTS PAT:STR1NG; CONSTS S:STR1NG; 1:1NTEGER):1NTEGER; 

E’ una funzione intrinseca di stringa. Ritorna la posizione intera della 
stringa PAT in S; la ricerca parte da S[I]. Se PAT non viene trovata 
oppure se I > UPPER(S), allora il valore di ritorno e' 0. Se PAT e 1 una 
stringa nulla, allora il valore di ritorno e' 1. Non esistono condizioni 
di errore. 

FUNCT10N PRED (X :* ORDINAI.) : 0RD1NAL; 

E' una funzione di conversione dati. Determina il "predecessore" ordinale 
di X. L'ORD del risultato equivale a ORD(X) - 1. Viene emesso un errore 
se il predecessore e' fuori del campo di variabilità 1 oppure se si 
verifica un overflow. Questi errori vengono segnalati se sono attivi gli 
appropriati indicatori di debug. 

FUNCTION PRSRQQ (A, B : REAL4) : REAL4; 

FUNCTION PRDRQQ (A, B : REAL8) : REAL8; 

Sono funzioni aritmetiche. Il valore di ritorno e’ A**B (A elevato a B). 

Sia A che B sono di tipo REAL4 o REAL8. Viene emesso un errore se A < 0 
(anche se B ha valore intero). Queste funzioni appartengono alla libreria 
runtime dell'MS-FORTRAN e devono essere dichiarate EXTERN dal programma 
che ne fa uso, se l'MS-FORTRAN e' disponibile sulla specifica macchina. 

PROCEDURE PTYUQQ (LEN : WORD; LOC : ADSMEM); 

E' una procedura di libreria (I/O da terminale). Scrive LEN caratteri sul 
video dèi terminale. I caratteri iniziano all'indirizzo LOC in memoria. 
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Esempio : 


PTYUQQ {8, AOS ’PROMPT: '); 

Insieme a GETYQQ e PLYUQQ, PTYUQQ e' utile per effettuare I/O da 
terminale in ambiente ad alte prestazioni. 

PROCEDURE PUT (VAR F); 

E' una procedura di file System. Scrive il valore della variabile buffer 
FA nel componente corrente di F e fa avanzare il puntatore del file. 

Per una descrizione di PUT si può' vedere "GET e PUT", nel Capitolo 17. 

PROCEDURE READ (VAR F; PI, P2 f ..,PN); 

E' una procedura di file System. READ legge i dati dai file. Sia READ che 
READLN sono definite in termini dell'operazione piu' primitiva GET.. 

Per una descrizione di READ si può' vedere la sezione "Input e Output con 
File-Testo", nel Capitolo 17. 

PROCEDURE READFN (VAR F; PI, P2 f ..,PN); 

E' una procedura di file System. (1/0 di livello Esteso). READFN e' 
analoga a READ (non READLN), con due eccezioni: 

1. il parametro file F deve essere presente (viene assunto INPUT ma 
viene emessa una segnalazione) 

2. se il parametro P e 1 di tipo FILE, allora viene letta, da F, una 
sequenza valida di caratteri che viene assegnata a P in modo analogo 
ad ASSIGN. 

1 parametri di altri tipi vengono letti nello stesso modo delle procedure 
READ. 

Per una descrizione di READFN si può' vedere la sezione "Procedure di 
Livello Esteso", nel Capitolo 17. 

PROCEDURE READLN (VAR F; PI, P2,..,PN); 

E’ una procedura di 1/0 su file. A livello primitivo di GET, senza 
parametri, READLN(F) e 1 equivalente a : 

BEGIN 

WH1LE NOT EOLN (F) DO GET (F); 

GET (F) 

END 

La procedura READLN e' molto simile a READ, con la differenza che legge 
anche il carattere di fine riga. 

Per una descrizione di READ si può' vedere "Input e Output con File- 
Testo", nel Capitolo 17. 

PROCEDURE READSET (VAR F; VAR L: LSTRING; CONSTS S: SETOFCHAR); 

E' una procedura di file System (1/0 di livello Esteso). READSET legge i 
caratteri e li trasferisce in L, finche' i caratteri sono nell'insieme S 
e c 'e' spazio in L. 
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Per una descrizione di READSET si può 1 vedere "Procedure di Livello 
Esteso", nel Capitolo 17. 

PROCEDURE RELEAS (VAR HEAPMARK : 1NTEGER4); 

E 1 una routine di libreria (gestione dello heap). E' analoga alla 
procedura RELEASE presente in altri compilatori Pascal. RELEAS libera 
l'area heap identificata dalla chiamata precedente a MARKAS. La procedura 
DISPOSE e' piu’ potente, in generale, ma RELEAS puo'essere utile per 
conversioni da altri linguaggi Pascal. In altri Pascal, il parametro e' 
di tipo puntatore. 11 Pascal ha bisogno di due parole per memorizzare i 
limiti dello heap, poiché’ in alcune implementazioni lo heap cresce sia 
verso il limite superiore che verso il limite inferiore. La variabile 
HEAPMARK non deve essere usata come un numero normale 1NTEGER4; essa deve 
essere caricata da MARKAS e quindi passata a RELEAS. 

Per usare MARKAS e RELEAS occorre passare una variabile 1NTEGER4, ad 
esempio M, come parametro VAR a MARKAS. MARKAS memorizza in M i limiti 
dello heap. Per liberare lo spazio dello heap occorre semplicemente 
richiamare la procedura RELEAS(M). MARKAS e RELEAS funzionano come 
descritto soltanto se non viene mai richiamata la procedura DISPOSE. 

PROCEDURE RESET (VAR F); 

E' una procedura di file system. Posiziona all'inizio il file F ed 
effettua una GET(F). 

Per una descrizione di RESET si può' vedere "RESET e REWR1TE", nel 
Capitolo 17. 

FUNCT10N RESULT (FUNCTI0N-1DENT1F1ER) : VALUE; 

E' una funzione intrinseca di livello Esteso. Viene usata per ottenere il 
valore corrente di una funzione; può' essere usata soltanto all'interno 
della funzione stessa oppure in una procedura o funzione in essa 
nidificata. 

FUNCTION RETYPE (TYPE-IDENT, EXPRESS10N) : TYPE-1DENT; 

E' una funzione intrinseca di livello di Sistema. Fornisce una 
valutazione generica di tipo; ritorna il valore dell'espressione come se 
essa fosse del tipo specificato. 11 tipo identificato e l'espressione 
dovrebbero avere la stessa lunghezza, ma questo non e' obbligatorio. 
RETYPE su una struttura può' essere seguita da selettori di componenti 
(indice di array, campi, riferimenti etc). RETYPE e' una funzione 
"pericolosa" e può' funzionare in modo diverso da quello previsto. 








Esempio: 


TYPE COLOR = (RED, BLUE, GREEN); 

S2 = STR1NG(2); 

VAR C :#CHAR; 

1, J :#1NTEGER; 

R :#REAL4; 

T1NT :#COLOUR; 

R := RETYPE (REAL4, ’abcd'); 

{La stringa letterale di 4 byte viene convertita in un numero REAL4} 

T1NT := RETYPE (COLOR, 2) 

{2 viene convertito in un colore, in questo caso GREEN.} 

{Questo e’ un uso di RETYPE che non presenta particolari pericoli.} 

C := RETYPE (S2, l) [J] / 

{l viene convertito in una stringa di 2 caratteri.} 

{J identifica un carattere della stringa che e' assegnato a C.} 

Esistono altri due modi di cambiare tipo in Pascal: 

1. Si può' usare un record con varianti, ciascuno del tipo desiderato. 

Si effettua un'assegnazione ad una variante e si leggono i valori 
attraverso le altre varianti. (Questo e' un errore non rilevato a 
livello Standard. Si deve osservare che l'allocazione relativa delle 
varianti può' cambiare da compilatore a compilatore.) 

2. Si può' dichiarare una variabile indirizzo del tipo voluto e poi 
assegnarle l'indirizzo di un'altra variabile (mediante ADR). 

Ognuno di questi metodi presenta le sue piccole differenze e deve essere 
evitato quando possibile. 

PROCEDURE REWR1TE (F); 

E' una procedura di file System. Riporta all'inizio la posizione 

corrente di un file. i 

Per una descrizione di REWR1TE si può’ vedere "RESET e REWR1TE", nel 

Capitolo 17. 

FUNCT10N ROUND (X : READ : 1NTEGER; 

E' una funzione aritmetica. Arrotonda per eccesso il valore di X. X può' 
essere di tipo REAL4 o REAL8; il valore di ritorno e' 1NTEGER. L'effetto 
di ROUND su un numero con una parte frazionale di 0.5 varia a seconda 
dell’implementazione. 

Esempio : 

ROUND (1.6) e' 2 

ROUND (-1.6) e’ -2 

Viene emesso un segnale di errore quando ABS (X + 0.5) >= MAX1NT. 
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FUNCTION R0UND4 (X : REAL) : INTEGER4; 


E' una funzione aritmetica. Arrotonda per eccesso il valore di X. X può' 
essere di tipo REAL4 o REAL8; il valore di ritorno e' di tipo INTEGER4. 
L'effetto di R0UND4 con una parte frazionale di 0.5 varia a seconda 
dell'implementazione. 

Esempi : 

R0UND4 (1.6) e’ 2 

R0UND4 (-1.6) e’ -2 

Viene emesso un segnale di errore quando ABS (X + 0.5)>= MAX1NT4. 

FUNCTION 5ADD0K (A, B: INTEGER; VAR C: INTEGER) : BOOLEAN; 

E' una routine di libreria (senza overflow aritmetico). Stabilisce che C 
e' uguale ad A piu' B. Insieme a 5MUL0K, e' una funzione che effettua 
l'aritmetica su 16 bit senza causare un errore runtime se avviene 
1'overflow. L'aritmetica normale emette un segnale di errore runtime su 
overflow anche se l'indicatore di debugging non e' attivo. Sia SADDOK che 
SMULOK ritornano il valore TRUE se non c'e' stato overflow, e FALSE in 
caso contrario. Queste routine sono utili per l'aritmetica a precisione 
estesa, per l'aritmetica modulo 2A16 oppure per l'aritmetica basata su 
dati input. 

FUNCTION SCANEQ (LEN: INTEGER; PAT: CHAR; CONSTS S: STRING; I: INTEGER): 
INTEGER; 

E' una funzione intrinseca di stringa. Esegue una ricerca su S, a partire 
da SCI], e ritorna il numero di caratteri esaminati. SCANEQ termina la 
sua ricerca quando incontra un carattere uguale a PAT oppure dopo aver 
considerato LEN caratteri. Se LEN < 0, SCANEQ effettua la sua ricerca in 
senso opposto e ritorna un numero negativo. SCANEQ ritorna il valore LEN 
se non trova caratteri uguali a PAT oppure se I > UPPER (S). Non vi sono 
condizioni di errore. 

FUNCTION SCANNE (LEN: INTEGER; PAT: CHAR; CONSTS S: STRING; I: INTEGER): 
INTEGER; 

E 1 una funzione intrinseca di stringa. E' simile a SCANEQ, ma la sua 
ricerca termina quando incontra un carattere diverso da PAT. La ricerca 
inizia da S [1] e ritorna il numero di caratteri esaminati. 5CANNE 
termina la sua ricerca quando incontra un carattere diverso da PAT oppure 
dopo aver considerato LEN caratteri. Se LEN < 0, SCANNE effettua la sua 
ricerca in senso opposto e ritorna un numero negativo. SCANNE ritorna il 
valore LEN se non trova caratteri uguali a PAT oppure se 1 > UPPER (S). 
Non vi sono condizioni di errore. 

PROCEDURE SEEK (VAR F; N : INTEGER4); 

E' una procedura di file system (1/0 di livello Esteso). A differenza dei 
file normali sequenziali, i file DIRECT hanno strutture ad accesso 
diretto. SEEK viene usata per accedere direttamente ai componenti di tali 
fi le. 

Per ulteriori dettagli si può' vedere "I/O di Livello Esteso", nel 
Capitolo 17. 




FUNCT10N SHSRQQ (CONSTS A : REAL4) : REAL4; 

FUNCTION SHDRQQ (CONSTS A : REAL8) : REAL8; 

Sono funzioni aritmetiche. Ritornano il seno iperbolico di A. A e' di 
tipo REAL4 o REAL8. Queste funzioni appartengono alla libreria runtime 
dell’MS-FORTRAN e devono essere dichiarate EXTERN dal programma che ne fa 
uso, se l'MS-FORTRAN e' disponibile sulla specifica macchina. 

FUNCTION SIN (X : NUMERIC) : REAL; 

E' una funzione aritmetica. Ritorna il seno di X in radianti. Sia X che 
il valore di ritorno sono di tipo REAL. In caso di precisioni particolari 
occorre usare le routine SNSRQQ (CONSTS REAL4) e/o SNDRQQ (CONSTS REAL8). 

FUNCTION 5IZE0F (VARIABLE) : WORD; 

FUNCTION SIZEOF (VARIABLE, TAG1, TAG2,..,TAGN) : WORD; 

E' una funzione intrinseca del livello Esteso. Ritorna la dimensione di 
una variabile in byte. I valori TAG oppure i limiti superiori degli array 
sono impostati in modo analogo alle funzioni NEW e DISPOSE. Se la 
variabile e' un record con varianti, e viene usata la prima forma, viene 
ritornata la dimensione massima possibile. Se la variabile e 1 di tipo 
super array, allora deve essere usata la seconda forma, la quale fornisce 
i limiti superiori. 

FUNCTION 5MUL0K (A, B : INTEGER; VAR C : INTEGER) : BOOLEAN; 

E' una routine di libreria (senza overflow aritmetico). Stabilisce che C 
e 1 uguale ad A moltiplicato B. Insieme a SADDOK, e' una funzione che 
effettua l'aritmetica su 16 bit senza causare un errore runtime se 
avviene 1'overflow. L'aritmetica normale emette un errore runtime su 
overflow anche se l'indicatore di debugging non e' presente. Sia SADDOK 
che SMULOK ritornano il valore TRUE se non c'e' stato overflow e FALSE in 
caso contrario. Queste routine sono utili per l'aritmetica a precisione 
estesa, per l'aritmetica modulo 2 a 16 oppure per l'aritmetica basata su 
dati input. 

FUNCTION SHSRQQ (CONSTS A : REAL4) : REAL4; 

FUNCTION SNDRQQ (CONSTS A : REAL8) : REALB; 

Vedere FUNCTION SIN. 

FUNCTION SQR (X : NUMERIC) : NUMERIC; 

E' una funzione aritmetica. Ritorna il quadrato di X, dove X può' essere 
di tipo REAL, INTEGER, WORD o INTEGER4. 

FUNCTION SQRT (X) : REAL; 

E' una funzione aritmetica. Ritorna la radice quadrata di X, dove X e' 
di tipo REAL. In caso di precisione particolare, occorre usare le 
routine SRSRQQ (CONSTS REAL4) e/o SRDRQQ (CONSTS REAL8). Viene emesso un 
segnale di errore se X e' minore di zero. 
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FUNCTION SR5RQQ (CONSTS A : REAL4) : REAL4; 
FUNCTION 5RDRQQ (C0N5T5 A : REAL8) : REAL8; 


Vedere FUNCTION SRQT. 

FUNCTION SUCC (X : ORDINAL) : ORDINAL; 

E' una funzione dì conversione dati. Determina il "successore" ordinale 
di X. L'ORD del risultato di ritorno e' uguale a ORD (X) + 1. Viene 
emesso un segnale di errore se il successore e' fuori del campo di 
variabilità' oppure se avviene un overflow. Questi errori sono segnalati 
se l'appropriato indicatore di debug e' presente. 


FUNCTION THSRQQ (CONSTS A : REAL4) : REAL4; 
FUNCTION THORQQ (CONSTS A : REAL8) : REAL8; 


Sono funzioni aritmetiche. Ritornano la tangente iperbolica di A. Sia A 
che il valore di ritorno sono di tipo REAL4 o REAL8. Queste funzioni 
appartengono alla libreria runtime dell’MS-FORTRAN e devono essere 
dichiarate EXTERN dal programma che ne fa uso, se l'MS-FORTRAN e' 
disponibile sulla specifica macchina. 


FUNCTION TICS : WORD; 

E' una routine di libreria (funzione di clock). Se disponibile, TICS 
ritorna il valore di una locazione di clock del sistema operativo. 11 
risultato viene fornito in un intervallo di tempo (ad esempio centesimi 
di secondo) che dipende dal sistema operativo. 

PROCEDURE TIME (VAR S : STR1NG); 

E 1 una routine di libreria (funzione di clock). Se disponibile, questa 
routine assegna il valore corrente di clock alla variabile STR1N& (o 
LSTR1NG). Se il parametro e' LSTR1NG, occorre impostare la lunghezza 
prima di richiamare TIME. 11 formato dipende dal sistema operativo. 

Vedere anche PROCEDURE DATE. 

FUNCTION TNSRQQ (CONSTS A : REAL4) : REAL4; 

FUNCTION TNDRQQ (CONSTS A : REAL8) : REAL8; 

Sono funzioni aritmetiche. Ritornano il valore della tangente di A. Sia 
A che il valore di ritorno sono REAL4 o REAL8. Queste funzioni 
appartengono alla libreria runtime dell'MS-FORTRAN e devono essere 
dichiarate EXTERN dal programma che ne fa uso, se l'MS-FORTRAN e' 
disponibile sulla specifica macchina. 

FUNCTION TRUNC (X : REAL) : INTEGER; 

E' una funzione aritmetica. Tronca il valore di X, dove X e' di tipo 
REAL4 o REAL8 ed il valore di ritorno e' INTEGER. 

Esempi : 


e' 1 
e' -1 
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TRUNC (1.6) 
TRUNC (-1.6) 




Viene emesso un segnale di errore se ABS (X - 1.0) >= MAXINT. 

FUNCTION TRUNC4 (X : REAL) : 1NTEGER4; 

E' una funzione aritmetica. Tronca il valore di X, dove X e' di tipo 
REAL4 o REAL8 ed il valore di ritorno e' 1NTEGER4. 

Esempi : 

TRUNC4 (1.6) e' 1 
TRUNC4 (-1.6) e' -1 

Viene emesso un segnale di errore se ABS (X - 1.0) >= MAX1NT4. 

FUNCTION UADDOK (A, B: WORD; VAR C: WORD) : BOOLEAN; 

E' una routine di libreria (senza overflow aritmetico). Stabilisce che C 
e' uguale ad A piu’ B. Insieme a UMULOK effettua l’aritmetica senza segno 
su 16 bit senza causare un errore runtime se avviene l'overflow. 
L'aritmetica normale emette un errore runtime su overflow anche se 
l'indicatore di debugging non e' attivo. Quello che segue e' il riporto 
binario risultante dalla somma di A e B: 

WRD (NOT UADDOK (A, B, C)) 

Sia UADDOK che UMULOK ritornano TRUE se non vi e' stato overflow, e FALSE 
in caso contrario. Queste routine sono utili per aritmetica a precisione 
estesa, per aritmetica modulo 2A16 o per aritmetica basata su input 
utente. 

FUNCTION UMULOK (A, B: WORD; VAR C: WORD) : BOOLEAN; 

E 1 una routine di libreria (senza overflow aritmetico). Stabilisce che C 
e' uguale ad A moltiplicato B. Insieme a UADDOK effettua l'aritmetica 
senza segno su 16 bit senza causare un errore runtime se avviene 
l'overflow. L'aritmetica normale può 1 causare un errore runtime su 
overflow anche se l'indicatore di debugging non e' attivo. Entrambe le 
routine ritornano TRUE se non vi e' stato overflow, e FALSE in caso 
contrario. Queste routine sono utili per aritmetica a precisione estesa, 
per aritmetica modulo 2A16 o per aritmetica basata su input utente. 

PROCEDURE UNLOCK (VARS SEMAPHORE : WORD); 

E' una routine di libreria (gestione dei semafori). UNLOCK rende 
disponibile un semaforo. Essendo di tipo binario, un semaforo può' avere 
soltanto due stati. UNLOCK può’ essere richiamata per un numero qualsiasi 
di volte e può' essere usata per inizializzare un semaforo. 

Vedere anche FUNCTION LOCKED. 

PROCEDURE UNPACK (CONSTS Z: PACKED; VARS A: UNPACKED; I: INDEX); 

E' una procedura di conversione dati. Trasferisce elementi da un array 
impaccato ad un array non impaccato. Se A e' un ARRAY [M..N] 0F T, e Z 
e' un PACKED ARRAY [U..V] 0F T, allora la chiamata precedente equivale a: 

FOR J := U T0 V DO A [J - U + 1] := Z [J] 
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Sia in PACK che in UNPACK il parametro l e' l'indice iniziale di A. 1 
limiti degli array ed il valore di 1 devono essere ragionevoli, cioè' il 
numero dei componenti di A da 1 ad M deve essere grande almeno come il 
numero dei componenti di Z. L'indicatore di controllo di variabilità' 
controlla i limiti degli array. 

Vedere anche PROCEDURE PACK. 

FUNCT10N UPPER (EXPRESSION) : VACUE; 

E' una funzione intrinseca del livello Esteso. UPPER, come LOWER, 
accetta un solo parametro di uno dei seguenti tipi: array, set, enumerato 
oppure subrange. 11 valore ritornato da UPPER può' essere uno dei 
seguenti : 

il limite superiore di un array 
l'ultimo elemento disponibile di un insieme 
l'ultimo valore di un tipo enumerato 
il limite superiore di un subrange. 

Se l'espressione non e' di tipo super array, il valore ritornato da UPPER 
e' sempre una costante Se lo e', viene ritornato il limite superiore del 
tipo super array. Si deve osservare che, in UPPER, viene usato il tipo e 
non il valore dell'espressione. 

Vedere anche PROCEDURE LOUER. 

PROCEDURE VECT1N (V: WORD; PROCEDURE I [INTERRUPT]); 

E' una routine di libreria (gestione delle interruzioni). E' una delle 
tre procedure che gestiscono le interruzioni. VECT1N imposta un vettore 
di interruzione in modo che le interruzioni di tipo V siano connesse alla 
procedura I. (ENAB1N abilita le interruzioni, D1SB1N le disabilita). Gli 
effetti di queste procedure ed il significato di V variano a seconda 
dalla macchina. Per maggiori informazioni sull'implementazione si può’ 
vedere l'Appendice A, "Caratteristiche di Implementazione", nel manuale 
"Linguaggio Pascal Guida Utente". 

FUNCTION WRD (X : VALUE) : WORD; 

E' una procedura di conversione dati. Converte in WORD qualsiasi tipo 
contenuto in tabella 16-7, secondo le regole fornite. 
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TIPO DI X 


VALORE DI RITORNO 


WORD X 

1NTEGER >= 0 X 

1NTEGER <0 X + MAXWORD + 1 (cioè 1 i 16 bit di partenza) 

CHAR Codice ASCII di X 

Enumerato Posizione di X nella definizione di tipo, a partire 

da 0 

1NTEGER4 1 16 bit meno significativi (come LOWORD (1NTEGER4)) 

Puntatore Valore WORD del puntatore 


Tabella 16-7 Conversione in WORD 

PROCEDURE URITE (VAR F; PI, P2,..,PN); 

PROCEDURE WRITELN (VAR F; PI,P2,..,PN); 

Sono procedure intrinseche a livello di file System. Scrivono dati nei 
file. WRITE e WRITELN sono definite in termini dell'operazione piu' 
primitiva PUT. WRITELN e' uguale a WRITE, con la differenza che scrive 
anche un carattere di fine riga. 

Per una descrizione di queste procedure si può' vedere "WRITE e WRITELN", 
nel Capitolo 17. 
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17. PROCEDURE E FUNZIONI 
ORIENTATE SU FILE 












SOMMARIO 


Questo capitolo descrive tutte le procedure e funzioni Input/Output, come 
pure la valutazione pigra (lazy) e l'I/O simultaneo, due caratteristiche 
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PROCEDURE E FUNZIONI ORIENTATE SU FILE 


INTRODUZIONE 

Il file System del Pascal ammette una varietà' di procedure e funzioni 
che operano su file con modi di accesso e strutture diversi. Queste 
procedure e funzioni possono essere catalogate come illustrato nella 
tabella 17-1. 


CATEGORIA 

■■ PROCEDURE 

FUNZIONI 

Primitive 

! GET 

EOF 


PAGE 
i PUT 
| RESET 

REWRITE 

EOLN 

1/0 di file-testo 

READ 

READLN 

WR1TE 

WR1TELN 


1/0 di livello Esteso 

; ASSIGN 

CLOSE 

D1SCARD 

READSÉT 
' READFN 
: SEEK 



Tabella 17-1 Procedure e Funzioni di File System 


PROCEDURE E FUNZIONI PRIMITIVE DI FILE SYSTEM 

Questa sezione descrive le sette procedure e funzioni primitive di file 
System che gestiscono 1 1 1/0 su file al livello piu' basso. Vengono 
fornite descrizioni delle procedure READ e WR1TE nei termini delle 
primitive GET e PUT. Vengono anche trattati la valutazione pigra (lazy) e 
1 1 1/0 simultaneo. Nelle descrizioni che seguono, F e* un parametro file 
(i parametri file sono sempre parametri di riferimento), ed FA 
rappresenta la relativa variabile buffer. 

In ambiente segmentato, tutte le variabili file su cui operano queste 
procedure devono risiedere nel segmento dati di default. Questa 
limitazione aumenta l'efficienza delle chiamate di file System. 
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GET e PUT 


Le procedure primitive GET e PUT leggono e scrivono nella variabile 
buffer FA. GET trasferisce in FA il componente successivo del file; 
PUT effettua l'operazione inversa, cioè' scrive nel componente 
successivo del file il contenuto della variabile FA, 

- RESET e REWR1TE 

Le procedure RESET e REWRITE pongono all'inizio la posizione corrente 
del file. RESET prepara il file per successive operazioni di GET e 
READ. REWRITE prepara il file per successive operazioni di PUT e 
WRITE. 

- EOF e EOLN 

Le funzioni EOF e EOLN vengono usate per controllare le condizioni di 
fine file e fine riga. Esse ritornano un risultato booleano. In 
generale questi valori indicano quando terminare la lettura di una 
riga o di un file. 

- PAGE 

La procedura PAGE contribuisce alla formattazione di file-testo. Non 
e* una procedura necessaria come GET e PUT. 


GET E PUT 

Le procedure primitive GET e PUT vengono usate per leggere e scrivere 
nella variabile buffer FA. GET trasferisce in FA il componente successivo 
del file; PUT effettua l'operazione inversa, cioè’ scrive nel successivo 
componente del file il contenuto della variabile FA. 

PROCEDURE GET (VAR F); 

E' una procedura primitiva intrinseca di file System. Se esiste un 
componente successivo nel file F, allora: 

viene fatta avanzare la posizione corrente del file sul componente 
successivo 

il valore di questo componente viene trasferito nella variabile 
buffer FA 

EOF (F) diventa FALSE. 

L'avanzamento e l'assegnazione possono essere ritardate internamente, a 
seconda del modo di accesso al file. 

Se non esiste un componente successivo del file, allora EOF(F) diventa 
TRUE ed il valore di FA e' indefinito. EOF (F) deve essere FALSE prima di 
GET (F), dato che la lettura oltre la fine del file provoca un errore 
runtime. Comunque, se F ha modo di accesso DIRECT, EOF (F) può' essere 
TRUE o FALSE, dato che questo modo di accesso permette ripetute GET alla 
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fine del file. Se FA e' un record con varianti, il compilatore legge la 
variante che ha dimensione maggiore. 


PROCEDURE PUT (VAR F); 

E' una procedura primitiva intrinseca di file System. Scrive il valore 
contenuto nella variabile buffer FA nella posizione del file corrente e 
poi fa avanzare la posizione al componente successivo. 

Per file con modo di accesso 5EQUENT1AL o TERMINAL, PUT e' permessa 
se l'operazione precedente su F e' stata una REUR1TE, una PUT o una 
URITE; non una RESET, una GET o un'altra procedura READ. 

Per file con modo di accesso DIRECT, PUT può' essere effettuata dopo 
una RESET o una GET. 

Le eccezioni a questa regola provocano segnalazione di errori. 11 valore 
di FA rimane sempre indefinito dopo una PUT. 

Nel Pascal il valore di FA dopo una PUT (F) può’ variare a seconda del 
sistema operativo e del tipo di file. Se F non ha modo di accesso 
DIRECT, EOF (F) deve essere TRUE prima di una PUT (F). EOF (F) e' sempre 
TRUE dopo una PUT (F). Se FA e' un record con varianti, viene riportata 
la variante che ha dimensione maggiore. 


RESET E REWR1TE 

Le procedure RESET e REURITE vengono usate per riportare all'inizio la 
posizione corrente di un file. RESET viene usata per preparare successive 
operazioni di GET e READ. REWR1TE viene usata per preparare successive 
operazioni di PUT e URITE. 

PROCEDURE RESET (VAR F); 

E' una procedura primitiva intrinseca di file System. Riporta all'inizio 
la posizione corrente del file ed effettua una GET (F). Se il file non 
e' vuoto, viene letto il suo primo componente in FA ed EOF (F) diventa 
FALSE. Se il file e' vuoto, il valore di FA rimane indefinito ed EOF (F) 
diventa TRUE. RESET inizializza il file F prima della sua lettura. Per 
file DIRECT, la scrittura può' essere fatta anche dopo una RESET. 

Nel Pascal il modo in cui RESET chiude il file e lo riapre dipende dal 
sistema operativo. Viene emesso segnale di errore se non e' stato 
impostato correttamente il nome del file (come parametro del programma o 
mediante ASS1GN o READFN) oppure se il file non viene trovato dal sistema 
operativo. Se si verifica un errore durante una RESET, il file viene 
chiuso anche se e' stato aperto correttamente e se l'errore proviene 
dalla GET iniziale. 

RESET (INPUT) e' effettuata automaticamente quando il programma viene 
inizializzato; essa e' permessa anche in modo esplicito. RESET su un 
file DIRECT permette sia la lettura che la scrittura, ma il file non 
viene creato automaticamente. La GET iniziale legge il record numero uno 
nei file DIRECT. 






Si deve osservare che una GET (F) esplicita, effettuata immediatamente 
dopo una RESET (F), riporta il secondo componente del file nella 
variabile buffer. Comunque, una READ (F, X), dopo una RESET (F), 
trasferisce in X il primo componente di F poiché’ READ (F, X) e' "X := 
FA; GET (F)". 


PROCEDURE REWRITE (VAR F); 

E' una procedura primitiva intrinseca di file system. Riporta all'inizio 
la posizione corrente del file. 11 valore di FA e 1 indefinito e EOF (F) 
diventa TRUE. Ciò' e' necessario per inizializzare un file F prima della 
scrittura (per file DIRECT, può' essere effettuata la lettura anche dopo 
una REWRITE). 

Nel Pascal, il modo in cui la REWRITE chiude il file e lo riapre dipende 
dal sistema operativo. Se il file non esiste viene creato. Se esiste, il 
suo vecchio valore viene perso (a parte il caso DIRECT). 11 nome del file 
deve essere stato impostato (come parametro di programma oppure con 
ASS1GN o READFN). Se si verifica un errore durante la REWRITE, il file 
viene chiuso. Se possibile, un file con lo stesso nome rimane inalterato 
quando si verifica un errore nella REWRITE; in alcuni sistemi operativi 
il file può' essere pero' cancellato. 

REWRITE (OUTPUT) e' fatta automaticamente quando un programma viene 
inizializzato; essa e' anche permessa in modo esplicito. REWRITE su un 
file DIRECT permette sia la lettura che la scrittura. REWRITE non fa una 
PUT iniziale in modo analogo alla GET di RESET. 


EOF E EOLN 

Le funzioni EOF e EOLN controllano rispettivamente le condizioni di fine 
file e fine riga. Esse ritornano un risultato booleano. In generale 
questi risultati indicano quando terminare la lettura di una linea o di 
un file. 

FUNCTION EOF: BOOLEAN; 

FUNCT10N EOF (VAR F) : BOOLEAN; 

E' una funzione primitiva intrinseca di file system. Ìndica se la 
variabile buffer FA e' posizionata alla fine del file F per file 
SEQUENT1AL e TERMINAL. Quindi, se EOF (F) e' TRUE, allora il file e' 
appena stato scritto oppure l'ultima GET ha raggiunto la fine del file. 

Per file DIRECT, se EOF (F) e' TRUE allora l'ultima operazione e' stata 
una WR1TE (in questo caso il file può' o non può' essere posizionato alla 
fine) oppure l'ultima GET ha raggiunto la fine del file. 

EOF senza parametro e' equivalente a EOF (INPUT). EOF (INPUT) non e' mai 
TRUE, tranne in quei sistemi operativi in cui un carattere particolare 
genera uno stato di fine file, oppure tranne se INPUT viene assegnato ad 
un altro file. La chiamata a EOF (F) permette di accedere alla variabile 
buffer FA. 
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FUNCTION EOLN : BOOLEAN; 

FUNCTION EOLN (VAR F) : BOOLEAN; 

E' una funzione primitiva intrinseca di file System. Ìndica se la 
posizione corrente del file e' alla fine di una riga nel file-testo F 
dopo una GET (F). 11 file deve avere struttura ASCII. 

Secondo lo standard ISO, richiamare EOLN (F) quando EOF (F) e’ TRUE e' un 
errore. Nel Pascal questo errore, nella maggior parte dei casi, viene 
rilevato. 11 file F deve essere di tipo TEXT. 

Se EOLN (F) e‘ TRUE, il valore di FA e' un carattere di spazio, ma la 
posizione del file e‘ alla fine della riga. EOLN senza parametro e' 
equivalente a EOLN (INPUT). La chiamata a EOLN (F) permette di accedere 
alla variabile buffer FA. 


PAGE 

La procedura PAGE aiuta a formattare i file-testo. Non e' una procedura 
"necessaria", come lo sono la GET e la PUT. 

PROCEDURE PAGE; 

PROCEDURE PAGE (VAR F); 

E' una procedura primitiva intrinseca di file System. Provoca il 
posizionamento all'inizio di una nuova pagina quando il file-testo viene 
stampato. Dato che PAGE scrive nel file, devono essere soddisfatte le 
condizioni iniziali descritte per PUT. 11 file deve avere struttura 
ASCII. PAGE senza parametro e' equivalente a PAGE (OUTPUT). 

Se F non e' posizionato all'inizio di una linea, PAGE (F) scrive dapprima 
un carattere di marca di riga in F. Se F e* SEQUENT1AL o DIRECT, allora 
PAGE (F) scrive un carattere di avanzamento carta CHR (12). Se F e' 
TERMINAL l'effetto e' determinato dal sistema operativo, che in genere 
permette l'avanzamento carta da terminale. 


VALUTAZIONE PIGRA 

La valutazione pigra ("lazy") e' stata progettata per risolvere un 
problema ricorrente nel Pascal, cioè' per leggere da un terminale in modo 
naturale. 

11 problema fondamentale e' che lo standard ISO definisce la procedura 
RESET con una GET iniziale. Anche se e' accettabile in ambiente di file 
sequenziali, questo tipo di pre-lettura non funziona per l'1/O 
interattivo. 

La valutazione lazy nel Pascal permette di rinviare l'attuale input 
fisico (solo per file-testo) quando viene valutata una variabile buffer. 

Ad esempio, se in un file normale viene eseguita RESET e poi READ, la 





procedura RESET chiama la procedura GET, la quale trasferisce nella 
variabile buffer il primo elemento del file. Nel caso che il file sia un 
terminale, questo primo elemento non esiste ancora. 

Occorre quindi, da terminale, impostare un carattere per poter 
soddisfare la GET. Solo allora può' iniziare la fase di input. 

La valutazione lazy elimina questo problema per i file-testo, assegnando 
alla variabile buffer un valore speciale di stato che lo indica "pieno" o 
"vuoto". 

La condizione normale dopo una GET (F) e' di "vuoto". Lo stato indica 
"pieno" soltanto dopo che la variable e' stata assegnata sia in input che 
in output. "Pieno" implica che il contenuto della variabile corrisponde 
all'elemento corrente del file. "Vuoto" implica esattamente l'opposto, 
cioè' che il contenuto della variabile buffer non corrisponde 
all'elemento corrente del file e che l'input e' stato rinviato. La 
tabella 17-2 contiene queste regole. 


Istruzione 

Stato alla 

Azione 

Stato 


chiamata 

intrapresa 

all 'uscita 

GET (F) 

Pieno 

Punta al componente suc¬ 
cessivo. Diventa vuoto 
perche' il valore punta¬ 
to non risiede nella va¬ 
riabile buffer 

Vuoto 

GET (F) 

Vuoto 

Trasferisce nella varia¬ 
bile buffer il contenuto 
dell'elemento corrente 
del file. Posiziona il 
file sul successivo ele¬ 
mento. Diventa vuoto 
perche' il valore punta¬ 
to non risiede nella va¬ 
riabile buffer 

Vuoto 

Riferimento 
a FA 

Pieno 

Non viene intrapresa al¬ 
cuna azione 

Pieno 

Riferimento 
a FA 

Vuoto 

Trasferisce nella varia¬ 
bile buffer il contenuto 
dell'elemento corrente 
del file 

Vuoto 


Tabella 17-2 Valutazione Lazy 

Si deve osservare che RESET (F) pone prima a pieno lo stato e quindi 
chiama la GET per porre a vuoto lo stato senza effettuare alcun input. 
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Esempio di valutazione lazy con chiamata automatica a REWR1TE: 

{INPUT e' automaticamente un file-testo.} 

{RESET (INPUT); fatta automaticamente.} 

URITE (OUTPUT, "Enter number: "); 

READLN (INPUT, F00); 


La chiamata automatica iniziale della procedura RESET richiama la 
procedura GET, la quale cambia lo stato della variabile da pieno a vuoto. 
La prima azione fisica su terminale e' l'output della WR1TE. READLN 
effettua una serie delle operazioni seguenti: 

temp := 1NPUTA; 

GET (INPUT) 

L'input fisico avviene quando ogni 1NPUTA viene caricato e la procedura 
GET riporta a vuoto lo stato della variabile buffer. 

READLN termina con la sequenza: 

WH1LE NOT EOLN DO GET (INPUT); 

GET (INPUT) 

Questa operazione salta i caratteri iniziali e quello di marca di riga. 
La funzione EOLN richiama l’input fisico. Impostare il carattere di 
ritorno carrello significa porre a TRUE la condizione EOLN. Sia la 
procedura GET nel ciclo di WH1LE che l'ultima GET riportano lo stato a 
vuoto. L'ultimo input fisico e' la lettura del carattere di ritorno 
carrello. 


I/O SIMULTANEO 

Nei sistemi operativi che lo permettono, l'1/O simultaneo consente ad una 
GET o ad una PUT di iniziare la fase di 1/0 e di ritornare immediatamente 
al programma che ha effettuato la chiamata. Si usa soltanto per file con 
struttura B1NARY. 

Il programma può' effettuare calcoli mentre la variabile buffer viene 
riempita o trasferita. La variabile buffer ha un'altro valore di stato 
associato, che la definisce "libera" o "occupata". Se la variabile e' 
occupata quando ne viene richiesto l’accesso, il programma deve attendere 
finche’ lo stato non la indica "libera". 

Ad esempio, la seguente parte di programma legge il file 1N_FILE, esegue 
alcune operazioni con il valore corrente, e quindi lo riporta nel file 
OUT FILE: 




WHILE NOT EOF (IN_FILE) DO 

{Controlla la fine dell'input e aspetta} 

{finche' 1N_F1LEA non e' libera.} 

BEG1N 

READ (1N_F1LE, BUFF); 

{1N_F1LEA e' libera, e viene quindi assegnata a BUFF;} 
{comincia la lettura del componente successivo.} 

OPERATE (BUFF); 

{Si effettuano operazioni durante la READ e la WR1TE.} 
WR1TE (0UT_FILE, BUFF); 

{Attende finche' 0UT_F1LEA non e' libera,} 

{assegna quindi BUFF e comincia la scrittura.} 


END 

L'esempio precedente si avvale delle procedure READ e WR1TE. Si deve 
osservare che le due righe seguenti sono equivalenti: 

READ (IN FILE, BUFF) 

BUFF := 1N_F1LEA; GET (1NJ1LE) 

E anche le seguenti: 

WR1TE (0UT_F1LE, BUFF) 

0UTJ1LEA := BUFF; PUT (0UT_F1LE) 

L'1/0 simultaneo viene applicato alle procedure GET e PUT, e anche a 
quelle READ e WR1TE. Nella pratica non e' una cosa usuale, per il sistema 
runtime del Pascal, gestire la concorrenza. Per ulteriori dettagli 
sull'implementazione si può' vedere l’Appendice A, "Caratteristiche di 
Implementazione", nel manuale "Linguaggio Pascal Guida Utente". 

Quando si accede alla variabile buffer, sia per la valutazione lazy che 
per l'1/O simultaneo, il Pascal genera una chiamata di 1/0 a sistema. 
Comunque, se la variabile buffer e' passata come parametro di riferimento 
ad una procedura o ad una funzione, la procedura o funzione stessa può' 
fare 1/0 sul file relativo senza eseguire queste chiamate speciali. 

Passare una variabile buffer come parametro di riferimento e' un errore 
in Pascal, anche se viene emesso soltanto un segnale di avvertimento. 
GET e PUT, quando vengono usate su una variabile buffer passata come 
parametro di riferimento, hanno effetti indefiniti. Anche l'assegnazione 
dell' v indirizzo di una variabile buffer ad una variabile tipo e' molto 
pericolosa, poiché' non fa uso dei meccanismi di valutazione lazy e di 
1/0 simultaneo. 
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INPUT E OUTPUT CON FILE-TESTO 


Nel Pascal Standard l'input e l'output leggibili dall'utente vengono 
fatti mediante file-testo. I file-testo sono file di tipo TEXT ed hanno 
sempre struttura ASCII. Normalmente i file-testo standard INPUT e OUTPUT 
vengono forniti come parametri standard nella intestazione del programma: 

PROGRAM IN_AND_0UT (INPUT, OUTPUT); 

Altri file-testo rappresentano generalmente alcuni dispositivi di 1/0 
come il terminale, il lettore di scheda, una stampante oppure un file di 
disco del sistema operativo. 11 livello Esteso permette l'uso di file 
addizionali non passati come parametri di programma. 

Allo scopo di facilitare la gestione dei file-testo vengono fornite, 
oltre alle procedure GET e PUT, le quattro funzioni standard READ, 
READLN, WR1TE e WR1TELN. 

READ and READLN 

Le procedure READ e READLN leggono dati da file-testo. READ e READLN 
sono definite in termini della procedura piu 1 primitiva GET. La 
procedura READLN e' molto simile alla READ, a parte il fatto che 
legge anche il carattere di fine riga. 

- WR1TE e WR1TELN 

Le procedure WR1TE e WR1TELN scrivono dati nei file-testo. WR1TE e 
WR1TELN sono definite nei termini dell'operazione piu' primitiva PUT. 
La procedura WR1TELN scrive un carattere di marca di riga alla fine 
della linea. Sotto qualsiasi altro aspetto, WR1TELN e' analoga alla 
WR1TE. 

Queste procedure hanno una sintassi piu' flessibile per quanto riguarda 
le liste di parametri permettendone, tra le altre cose, un numero 
variabile. Non tutti i parametri devono essere di tipo CHAR, ma possono 
essere anche di altri tipi, nel qual caso il trasferimento dati avviene 
insieme ad un'operazione implicita di conversione dati. In alcuni casi, i 
parametri possono includere valori addizionali di formattazione che 
influiscono sulla conversione dei dati. 

Se la prima variabile e' una variabile file, allora e' il file ad essere 
letto o scritto. Negli altri casi vengono considerati automaticamente i 
file standard INPUT e OUTPUT rispettivamente per la lettura e scrittura. 

Questi due file hanno modo di accesso TERMINAL e struttura ASCII. Essi 
vengono predichiarati come: 

VAR INPUT, OUTPUT: TEXT; 

Nel Pascal i file INPUT e OUTPUT sono trattati come tutti gli altri 
file-testo. Essi possono essere usati con ASSIGN, CLOSE, RESET, REWRITE 
e le altre procedure e funzioni. Comunque, anche se presenti come 
parametri di un programma, essi non vengono associati inizialmente ad 
alcun nome di file. Essi vengono invece assegnati al terminale utente. 



RESET di INPUT e REWRITE di OUTPUT vengono fatte automaticamente, 
indipendentamente dalla loro presenza come parametri di programma. 

1 file-testo rappresentano un caso speciale tra tutti i tipi di file, nel 
senso che sono strutturati in righe tramite "marche di riga". Se, 
durante la lettura, la posizione del file viene fatta avanzare fino ad un 
carattere di marca di riga (il carattere seguente l'ultimo della riga), 
allora il valore della variabile buffer FA diventa un carattere spazio e 
la funzione standard EOLN (F) ritorna il valore TRUE. 

Ad esempio: 


’L * 

' 1 

’N ' 

'E' 

'0' 

' F ' 

’T ' 

'E' 

'X' 

' T ’ 



{EOLN = TRUE} {FA = ' '} 


I 


L'avanzamento della posizione del file di un altro carattere può' 
provocare una delle seguenti tre cose: 

1. Se viene raggiunta la fine del file, allora EOF (F) diventa TRUE. 

2. Se la linea successiva e' vuota, a FA viene assegnato uno spazio 
vuoto e EOLN (F) rimane TRUE. 

3. Altrimenti, il carattere successivo viene trasferito in FA ed EOLN 
(F) diventa FALSE. 

Dato che nel Pascal Standard le marche di riga non sono elementi CHAR, in 
teoria esse possono essere generate soltanto dalla procedura WR1TELN. E’ 
comunque possibile usare un altro carattere come marca di riga. E' quindi 
possibile fare la WR1TE di una marca di riga, ma non la READ. 

Quando un file-testo in creazione viene chiuso, all'ultima riga viene 
automaticamente unito un carattere di marca di riga; questo non avviene 
se il file e' vuoto oppure se l'ultimo carattere e' già' una marca di 
riga. 

Quando, in fase di lettura, viene raggiunta la fine del file, viene 
ritornata una marca di riga per l'ultima linea, anche se essa non era 
contenuta nel file. 

Qualsiasi lista di dati scritta mediante WR1TELN e' generalmente 
leggibile, con la stessa lista, da una READLN (non si deve pero' avere 
una LSTRING alla fine della lista). 

Le domande e le risposte interattive sono molto facili nel Pascal. Per 
avere l'input sulla stessa linea della risposta occorre usare la WR1TE 
per il prompt. READLN deve essere sempre usata per la risposta. 
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Ad esempio: 


URITE ('Enter command: '); 

READLN (risposta); 

Se non viene fornito alcun file, la maggior parte delle procedure di 
file-testo assumono ■ il file INPUT oppure OUTPUT. Ad esempio, se 1 e' di 
tipo INTEGER, allora READ (1) equivale a READ (INPUT, 1). 


READ E READLN 

PROCEDURE REAO 
PROCEDURE READLN 

Sono procedure intrinseche*del file system per I/O su file-testo. READ e 
READLN leggono dati da file-testo. Entrambe vengono definite nei termini 
della procedura piu' primitiva GET. Cioè', se P e' di tipo CHAR, allora 
READ (F, P) equivale a: 

BEG1N 

P := FA 

{Assegna la variabile buffer a P.} 

GET (F) 

{Trasferisce in FA il componente successivo di F.} 

END 

READ può' avere piu' di un singolo parametro, come in READ (F, PI, P2, 
..., Pn). Questo equivale a: 

BEGIN 

READ (F, PI); 

READ (F, P2) ; 


READ (F, PN) 

END 

La procedura READLN e' molto simile alla READ, con la differenza che 
legge anche il carattere di fine riga. Al livello primitivo di GET, senza 
parametri, la READLN equivale a: 

BEGIN 

WHILE NOT EOLN (F) DO GET (F); 

GET (F) 

END 

Una READLN con parametri, come in READLN (F, PI, P2,...,Pn), e’ 
equivalente a: 

BEGIN 

READ (F, PI, P2,...,Pn); 

READLN (F) 

END 


READLN viene spesso usata per saltare all'inizio della riga successiva. 
Essa può' essere usata soltanto con file-testo (modo ASCII). 



Se non viene specificato alcun nome di file, sia la READ che la READLN 
leggono dal file INPUT standard. Quindi non occorre specificare 
esplicitamente il nome INPUT. Ad esempio, le seguenti due READ hanno il 
medesimo effetto: 

READ (PI, P2, P3) 

{Assume INPUT in modo implicito) 

READ (INPUT, PI, P2, P3) 

A livello Standard, i parametri PI, P2, P3 devono essere di uno dei 
seguenti due tipi: 

CHAR 

1NTEGER 

REAL 

A livello Esteso la READ accetta anche parametri dei seguenti tipi: 

WORD 

tipo enumerato 

BOOLEAN 

1NTEGER4 

tipo puntatore 

STR1NG 

LSTR1NG 

Quando il compilatore legge una variabile di tipo subrange, il valore 
letto deve essere compreso nel campo di variabilità'. In caso contrario 
viene emesso un segnale di errore, indipendentemente dalla presenza o 
meno del relativo indicatore di controllo. 

La procedura READ può' leggere anche da un file che non sia un file-testo 
(cioè 1 B1NARV). La forma READ (F, PI, P2,...,Pn) può' essere usata su un 
file B1NARY. Comunque questa procedura non funziona nel modo previsto 
dopo una SEEK su un file DIRECT. 

Per file B1NARY, READ (F, X), e' equivalente a: 

BEG1N 

X := FA; 

GET (F) 

END 


FORMATI READ 

11 processo di READ per tipi formattati (tutti i tipi eccetto CHAR, 
STR1NG e LSTR1NG) provvede prima a trasferire i dati in una LSTR1NG 
interna e quindi a decodificare la stringa per ottenerne il valore. 

Vi sono tre punti importanti-, per quanto riguarda la READ formattata: 

1. Gli spazi iniziali, le tabulazioni, i caratteri di avanzamento carta 
e di marca di riga non vengono considerati. Ad esempio, quando si 
effettua una READLN (1, J, K) ove 1, J e K sono 1NTEGER, essi possono 
essere sulla stessa riga oppure su righe diverse. 
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2. I caratteri vengono letti se appartengono all'insieme valido per il 
tipo specificato. Ad esempio, "-1-2-3" viene letta come stringa di 
caratteri per un singolo 1NTEGER, ma segnala un errore quando la 
stringa di caratteri e' decodificata. Questo significa che gli 
elementi devono essere separati da spazi, tabulazioni, marche di riga 
oppure da caratteri non permessi nel formato. 

3. I valori M e N nella READ vengono ignorati, eccetto per un valore N 
appartenente ad un tipo enumerato. In letture B1NARY non sono 
accettati parametri M e N. 

La maggior parte delle regole di formattazione valgono anche per la 

funzione DECQDE. 

- Tipi 1NTEGER e WORD 

Se P e' di tipo 1NTEGER, WORD, oppure un loro subrange, allora READ 
(F, P) implica la lettura di una sequenza di caratteri da F in modo 
da formare un numero in accordo alla sintassi normale del Pascal, e 
quindi l'assegnazione del numero a P. La notazione non decimale 
(16#C007, 8#74, 10#19, 2#101, #Face) viene accettata sia per 1NTEGER 
che per WORD, con una radice da 2 a 36. Se P e' di tipo INTEGER, un 
carattere '+' o in testa viene accettato. Se P e 1 di tipo WORD, 
allora vengono accettati numeri con valore fino a MAXWORD 
(32768...65535). 

Tipi REAL e LNTEGER4 

Se P e' di tipo REAL oppure, al«livello Esteso, 1NTEGER4, READ (F, P) 
implica la lettura di una sequenza di caratteri da F in modo da 

formare un numero del tipo appropriato per poi assegnarlo alla 
variabile P. La notazione non decimale non viene accettata per numeri 
REAL, ma viene accettata per numeri 1NTEGER4. Quando viene letto un 
valore REAL, viene accettato un numero con separatore decimale sia in 
testa che in fondo: ma questa forma provoca l'emissione di un 

messaggio di avvertimento se usata come costante in un programma. 

Tipi Enumerati e Booleani 

A livello Esteso, se P e' un tipo enumerato o booleano, viene letto 
un numero come subrange di WORD e viene assegnato a P un valore tale 
che il numero sia l'ORD del valore di tipo enumerato. Inoltre, se P 

e' di tipo BOOLEAN, la lettura di una delle sequenze di caratteri 

'TRUE' o 'FALSE' provoca l'assegnazione dei valori rispettivamente 
vero e falso a P. 11 numero letto deve essere nel campo di 
variabilità' dei valori ORD della variabile. 

Sempre a livello Esteso, se il parametro P e' un tipo enumerato ed 
include la notazione :N come in READ (P::N), vengono letti caratteri 

dal file F in modo da formare un identificatore o un numero valido. 

Se i caratteri formano un numero, esso deve essere il valore ORD 
descritto nel precedente paragrafo; se i caratteri formano un 
identificatore che corrisponde ad un identificatore costante del tipo 
enumerato, allora il suo valore viene assegnato a P. Se la variabile 

e' BOOLEAN, allora la lettura delle cifre 1 o 0 provoca 





l'assegnazione dei valori rispettivamente vero o falso alla variabile 
booleana. ’TRUE' e 'FALSE' vengono anche accettati come 
identificatori costanti di BOOLEAN. 

11 valore attuale di N viene ignorato: l'uso della notazione N 
avverte il compilatore che deve memorizzare l'identificatore di tipo 
enumerato e renderlo disponibile alla routine READ. L'omissione della 
notazione N permette di risparmiare lo spazio di memoria che verrebbe 
usato per l'identificatore. 

Tipi di riferimento 

Al livello Esteso, se P e’ un tipo puntatore, un numero viene letto 
come WORD e quindi assegnato a P, in un modo che dipende dalla 
singola implementazione; in questo modo un puntatore può 1 essere 
scritto e poi riletto ottenendo un riferimento alla stessa locazione. 
1 tipi indirizzo dovrebbero essere letti come WORD usando la 
notazione .R o .5. 

Tipi stringa 

Al livello Esteso, se P e' una STR1NG (n), allora vengono letti i 
successivi n caratteri in P. Marche di riga iniziali, spazi, 
caratteri di tabulazione o di avanzamento carta non vengono ignorati. 
Se viene incontrato un carattere di marca di riga prima di n 
caratteri, i caratteri seguenti in P vengono riempiti con spazi e la 
posizione del file rimane sulla marca di riga. 

Se la STR1NG viene riempita con n caratteri prima che venga 
incontrato il carattere di marca di riga, la posizione nel file viene 
posta sul carattere seguente. In alcune implementazioni vi può' 
essere un limite di 255 caratteri sulla lunghezza di una STR1NG 
letta. P può' essere di tipo super array STR1NG (cioè' un parametro 
di riferimento oppure una variabile riferita da puntatore). 

A livello Esteso, se P e' una LSTR1NG (n), vengono letti i successivi 
n caratteri in P e la lunghezza di LSTR1NG e' posta ad "n". Marche di 
riga iniziali, spazi, caratteri di tabulazione o di avanzamento carta 
vengono ignorati. Se viene incontrato un carattere di marca di riga 
prima di n caratteri letti, la lunghezza di LSTR1NG viene stabilita 
uguale al numero di caratteri letti e la posizione del file rimane 
sulla marca di riga. 

Se LSTR1NG viene riempita con n caratteri prima del carattere di 
marca di riga, allora la posizione del file rimane sul carattere 
seguente. P può' essere di tipo super array LSTR1NG (cioè' un 
parametro di riferimento oppure una variabile riferita da puntatore). 
READ (LSTR1NG) e' utile quando si leggono righe intere da un file- 
testo, in particolare quando si vuole conoscere la lunghezza della 
riga letta. Ad esempio, il modo piu' facile per copiare un file- 
testo e' quella di usare READLN e WR1TELN con una variabile LSTR1NG. 

Generalmente, READ e READLN non usano parametri con ampiezza di campo 
M: non si può' leggere la stringa '123456' come due numeri 1NTEGER 
mediante una READ (1:3, J:3). Comunque e' possibile leggere due 
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elementi LSTR1NG (3) e quindi decodificarli per ottenere lo stesso 
effetto. 


URITE E UR1TELN 

PROCEDURE URITE 
PROCEDURE UR1TELN 

Sono procedure intrinseche di file System (1/0 su file-testo). Scrivono 
dati su file-testo. URITE e URITELN sono definite nei termini 
dell'operazione piu' primitiva PUT; cioè' se P e' un'espressione di tipo 
CHAR ed F e' un file di tipo TEXT, allora URITE (F, P) e’ equivalente a: 

BEGIN 

FA := P; 

{Assegnazione di P alla variabile buffer Fa} 

PUT (F) 

{Assegnazione di FA al componente successivo del file} 

END 

URITE può 1 avere piu' di un parametro, come in URITE (F, PI, P2,...,Pn). 
Cioè’ : 

BEGIN 

URITE (F, PI); 

URITE (F, P2); 


URITE (F, Pn) 

END 

La procedura URITELN scrive un carattere di marca di riga alla fine della 
linea emessa. 5otto r tutti gli altri punti di vista, URITELN e' del tutto 
equivalente a URITE. Quindi URITELN (F, PI, P2,...,Pn) equivale a: 

BEGIN 

URITE (PI, P2,...,Pn); 

URITELN (F) 

END 

Se URITE o URITELN non hanno parametri file, allora viene assunto il 
parametro file OUTPUT. Le seguenti coppie di istruzioni sono equivalenti: 

URITE (PI, P2.Pn) 

URITE (OUTPUT, PI, P2.Pn) 

URITELN (PI, P2,...,Pn) 

URITELN (OUTPUT, PI, P2.Pn) 


Al livello Standard, i parametri in URITE possono essere espressioni di 
uno dei seguenti tipi: 






CHAR 

INTEGER 

REAL 

BOOLEAN 

STRING 

Al livello Esteso, le espressioni possono essere di tipo: 

WORD 

1NTEGER4 

L5TR1NG 

tipo enumerato 
tipo puntatore 

1 parametri possono avere valori opzionali M e N (per ulteriori 
informazioni sui parametri M e N si può' vedere "Formati WR1TE", piu' 
oltre in questo capitolo). 

Anche se la-procedura WR1TE può' scrivere su file B1NARY (cioè' non su 
file-testo), questa non e' un'operazione consigliata per file DIRECT dopo 
un'operazione di SEEK, dato che la READ complementare può' non funzionare 
nel modo voluto. 

Per i file B1NARY, la WR1TE (F, X) e' equivalente a: 

BEG1N 
F := X; 

PUT (F) 

END 

E' accettata anche la forma WR1TE (F, PI, P2,_,Pn). Normalmente le 

WR1TE su file B1NARY non accettano valori M e N. 


FORMATI URITE 

Nei file-testo i parametri per WRITE e WR1TELN possono assumere una delle 
seguenti forme: 

P P:M P:M:N P::N 

I valori M e N possono essere considerati parametri valore di tipo 
INTEGER e vengono usati per formattare in diversi modi. II livello Esteso 
permette valori M ed N sia per le READ che per le WRITE e permette anche 
di fornire N senza M, come in: 

P: :N 

II loro uso non-standard e' un errore che pero' non viene rilevato al 
livello Standard. In alcuni viene usato solo M, N, o nessuno dei due; i 
valori M ed N, non usati, vengono ignorati. 

L'omissione di M o N equivale all'uso di MAXINT. Ad esempio, WRITE (12 : 
MAXINT) usa il valore M di default (B in questo caso). Generalmente, i 
valori M e N non sono accettati per file BINARY. In WRITE, il valore M e' 
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l'ampiezza di campo che indica il numero di caratteri da scrivere. Nel 
Pascal-lSO M deve essere maggiore di zero e, se l'espressione richiede 
meno di M caratteri, deve essere riempita di caratteri di spazio a 
sinistra. 

A livello Esteso, M può' anche essere zero o negativo. Se e' negativo 
viene usato il suo valore assoluto, ma la riempitura con spazi inizia a 
destra invece che a sinistra. Se e' zero, non vengono scritti caratteri. 
Questi sono errori dello standard ISO che pero' non vengono segnalati. 


Se la rappresentazione dell'espressione non sta in ABS (M) caratteri, 
vengono usate posizioni supplementari per tipi numerici, oppure il valore 
e’ troncato verso destra per tipi stringa. Se M viene omesso oppure e 1 
uguale a MAX1NT, viene usato un valore di default. 

11 valore N significa: 

il numero di cifre decimali, se P e' di tipo REAL 

la radice output, se P e' 1NTEGER, WORD, 1NTEGER4 o puntatore 

il valore numerico o l'identificatore se P e' un tipo enumerato 

La maggior parte delle seguenti regole di formattazione valgono anche per 
la procedura ENCODE. 

Tipi 1NTEGER e WORD 

Se P e' di tipo 1NTEGER, WORD, o un loro subrange, allora la 
rappresentazione decimale di P viene scritta nel file. Se P e 1 un 
1NTEGER negativo, allora viene sempre emesso un carattere in 

testa. 1 valori WORD non sono mai negativi. Per valori 1NTEGER e 
WORD, il valore di M e' 8. 

Se ABS (M) e' piu* piccolo della rappresentazione del numero, allora 
vengono usate posizioni addizionali. N viene usato per scrivere in 
esadecimale, decimale, ottale, binario oppure in qualche altra base 
ponendo N uguale ad un numero che va da 2 a 36; questa e' 
un'estensione dello standard ISO Pascal. Se N non e' 10 (oppure e' 
omesso, oppure e 1 MAX1NT), allora la riempitura alla sinistra avviene 
con zeri invece che con spazi. Omettere N, o porre N uguale a MAX1NT 
oppure a 10, implica una radice decimale. 


1 numeri decimali WORD da 32768 a 65535 vengono scritti normalmente e 
non nel loro equivalente negativo. Tutti i valori scritti devono 
essere separati da spazi o da qualche altro carattere non numerico in 
modo da poterli leggere come numeri separati. 

- Tipi REAL e 1NTEGER4 

Se P e' di tipo REAL, viene scritta nel file una rappresentazione 
decimale del numero P arrotondata al numero specificato di cifre 
decimali. Se N viene omesso oppure stabilito uguale a MAX1NT, viene 
scritta una rappresentazione a virgola mobile di P nel file; questa 
rappresentazione e' costituita da un coefficiente e da un fattore di 




scala. Se viene specificato N, viene scritta nel file una 
rappresentazione a virgola fissa con N dopo il punto decimale. Se N 
e' zero, P viene scritto come intero arrotondato con il punto 
decimale. 

11 valore di default di M per valori REAL e' 14. 

Alcuni esempi di operazioni WR1TE su valori REAL: 

Questa Istruzione Produce questo Output 

' 1.2345600E+02' 

' 1.2345600000000E+02' 

' 123.456' 

’ 123.456' 

'123.456 

Al livello Esteso, se P e' di tipo 1NTEGER4, allora la 

rappresentazione decimale di P viene scritta nel file. 11 valore N 
viene usato per impostare la radice, come nel tipo 1NTEGER. 11 valore 
di default di M e' 14. 

Tipi Enumerati e Booleani 

Al livello Esteso, se P e' un tipo enumerato ed N e' omesso oppure 
stabilito uguale a MAXINT, allora ORD (P) viene scritto nel file come 
una WORD. Se viene dato il valore 1 ad N, l'identificatore costante 
del tipo enumerato di P viene scritto nel file, come una STRING. Si 
deve osservare che l'uso della notazione N provoca l'allocazione in 
memoria dell'identificatore costante del tipo enumerato. 

Al livello Standard, se P e' di tipo BOOLEAN, allora le stringhe 

'TRUE' e 'FALSE' vengono scritte nel file come STRING. Non viene mai 

scritto il valore ORD per tipi booleani come avviene per i tipi 

enumerati (anche se si può' scrivere WR1TE (ORD (P)). 

Tipi di riferimento 

Al livello Esteso, se P e’ un tipo puntatore, P viene scritta come 
WORD. Questo viene fatto nell 1 implementazione allo scopo di poter 
memorizzare un puntatore e poterlo leggere ed usare in seguito. 1 
tipi indirizzo dovrebbero essere scritti come valori WORD con la 
notazione .R o .S. 

Tipi stringa 

Se P e’ di tipo STRING (n), il valore di P viene riportato nel file. 
11 valore di default di M e' la lunghezza della stringa, "n". Se ABS 
(M) e' minore della lunghezza della stringa, vengono scritti soltanto 
i primi ABS (M) caratteri. Se M e’ zero, non viene scritto nulla. La 
parte destra della stringa viene sempre troncata, anche se Me' 
negativo. In alcune implementazioni può' esservi un limite di 255 
caratteri sulla lunghezza della stringa scritta. 

Al livello Esteso, se P e' di tipo LSTR1NG (n) il valore di P viene 
scritto nel file. 11 valore di default di M e' la lunghezza della 
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WRITE (123.456) 

WR1TE (123.456:20) 
WRITE (123.456 : : 3) 
WRITE (123.456:2:3) 
WRITE (123.456:-20:3) 
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stringa, P.LEN. Se ABS (M) e 1 inferiore alla lunghezza della stringa, 
vengono scritti soltanto i primi ABS (M) caratteri. Se M e 1 zero, non 
viene scritto nulla. La porzione destra di LSTR1NG viene sempre 
troncata, anche se M e’ negativo. Se ABS (M) e’ maggiore della 
lunghezza corrente, allora le posizioni che rimangono vengono 
riempite da spazi. Si deve osservare che una stringa di spazi M può’ 
essere scritta come NULL:M. 


1/0 AL LIVELLO ESTESO 

Al livello Esteso, il Pascal ha queste caratteristiche 1/0 addizionali: 
si può' accedere ai tre campi FCB: F.MODE, F.TRAP, F.ERRS 
un certo numero di procedure e' predichiarato 
i file temporanei sono disponibili. 

La sezione ”1/0 al Livello Esteso", nel Capitolo 10, contiene una 
descrizione dei campi FCB nel contesto dei file. Le procedure addizionali 
ed i file temporanei vengono descritte nel seguito. 


PROCEDURE DI LIVELLO ESTESO 

PROCEDURE ASS1GN {VAR F; CONSTS N : STRING); 

E' una procedura di file System (1/0 di livello Esteso). Assegna il nome 
di file di sistema operativo contenuto in STR1NG (o LSTR1NG) a un file F. 
11 formato del nome del file dipende dal sistema operativo. Come regola, 
ASS1GN non tiene conto degli spazi iniziali. ASS1GN non tiene conto 
neppure di tutti i nomi di file stabiliti in precedenza. Un nome di file 
deve essere stabilito prima della prima RESET 0 REWR1TE su un file. 
A5S1GN su un file aperto (dopo RESET o REWR1TE ma prima della CLOSE) 
produce un errore. E* ammessa l'ASSIGN sui file INPUT e OUTPUT; dato che 
questi file vengono aperti automaticamente, essi devono essere chiusi 
prima dell'ASSIGN. 

PROCEDURE CLOSE (VAR F); 

E' una procedura di file System (1/0 di livello Esteso). Effettua la 
chiusura del file assicurando che l'accesso al file sia terminato 
correttamente. Questo e' molto importante per variabili file allocate 
nello stack o nello heap. Dato che questi file devono essere chiusi prima 
della RETURN o della DISPOSE, essi vengono chiusi automaticamente quando 
la RETURN o la DISPOSE liberano lo spazio nello stack o nello heap. 

Anche le variabili file con l'attributo STAT1C in procedure o funzioni 
vengono chiuse automaticamente all’uscita della procedura o della 




funzione. 1 file allocati in modo statico a livello di programma, modulo 
o implementazione vengono chiusi automaticamente quando termina l'intero 
programma. 

Se necessario, quando viene eseguita la CLOSE, i buffer di sistema 
operativo di un file in fase di scrittura vengono svuotati. Comunque la 
variabile buffer Pascal non e’ PUT. Se un file-testo e' in fase di 
scrittura quando viene chiuso, e l'ultima riga non-vuota non termina con 
un carattere di marca di riga, allora ne viene aggiunta una. Se il file 
e' SEQUENT1AL allora viene aggiunto, se manca, un fine riga. 

Si deve osservare che alcuni errori runtime possono togliere il controllo 
al sistema runtime del Pascal. In questi casi, i file in fase di 
scrittura non possono essere chiusi e le informazioni al loro interno 
vengono perse. Una CLOSE su un file già' chiuso o mai aperto (nessuna 
RESET ne' REWR1TE) e' permessa. CLOSE non viene ignorata se l'indicatore 
di errore e' attivo e se c'e' stato un errore precedente. CLOSE spegne 
l'indicatore di errore per il file e, se non si sono verificati errori, 
inizializza lo stato di errore. 

PROCEDURE D1SCARD (VAR F); 

E' una procedura di file System (1/0 di livello Esteso). Chiude e 
cancella un file aperto. D1SCARD e' simile alla CLOSE, con la differenza 
che il file viene cancellato. 

PROCEDURE READFN (VAR F: PI, P2,...,PN); 

E' una procedura di file System (1/0 di livello Esteso). READFN e' 
analoga alla READ (non READLN) con due eccezioni: 

1. il parametro file F deve essere presente (viene assunto INPUT ma 
viene anche emessa una segnalazione). 

2. se il parametro P e' di tipo FILE, viene letta da F una sequenza di 
caratteri in modo da formare un nome valido di file ed assegnarlo a P 
nello stesso modo di ASS1GN. 

1 parametri di altri tipi vengono letti allo stesso modo della procedura 
READ. 

Si deve osservare che READFN e' analoga alla READ (non READLN) e non 
legge il carattere di marca di fine riga. Se il primo parametro in READFN 
e' un file di tipo qualsiasi, esso viene trattato come un file-testo dal 
quale vengono letti caratteri. Non viene assunto il nome INPUT per 
default. 

READFN viene usata internamente per leggere i parametri di un programma. 
Essa e' utile per leggere il nome di un file ed assegnarlo a qualche 
altro file in una operazione. 

PROCEDURE READSET (VAR F; VAR L: LSTR1NG, CONST S: SETOFCHAR); 

E' una procedura di file System (1/0 di livello Esteso). READSET legge 
caratteri e li trasferisce in L, finche' essi appartengono al set S e 
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finche' c'e' spazio in L. Se non viene fornito il parametro F viene 
assunto, in modo analogo a READ e URITE, il valore INPUT. Gli spazi 
iniziali, i caratteri di tabulazione, di avanzamento carta e di fine riga 
vengono sempre ignorati. 

La lettura termina al primo carattere di marca di riga, il quale non e' 
mai di tipo CHAR. 

READSET, come ENCODE, viene usata dal sistema runtime per implementare le 
procedure READ formattate e per leggere nomi di file con READFN. E' utile 
nella lettura e nel riconoscimento caratteri, e per la gestione di input 
semplice. 

In ambiente di memoria segmentata, i parametri L e S devono risiedere nel 
segmento dati di default. 

PROCEDURE SEEK (VAR F; N: 1NTEGER4); 

E' una procedure di file System (1/0 di livello Esteso). A differenza dei 
file sequenziali normali, i file DIRECT hanno una struttura ad accesso 
casuale. SEEK viene usata per accedere direttamente agli elementi di tali 
file. Per usare un file DIRECT, il MODE deve essere impostato a DIRECT 
prima che il file venga aperto con RESET o REUR1TE; il file, F, deve 
essere un file con modo di accesso DIRECT. 

Se il file viene letto o scritto sequenzialmente, possono essere usate le 
normali procedure READ e URITE. SEEK modifica un campo nel file F in modo 
che la GET o PUT successiva operi sul record numero N. 11 parametro N 
(numero del record) può' essere di tipo 1NTEGER, WORD oppure 1NTEGER4. 
Per i file-testo (struttura ASCII) i record sono righe; per altri file 
(struttura B1NARY) i record sono i componenti del file. 1 record vengono 
numerati a partire da uno (non zero). Se F e' un file ASCII, SEEK pone lo 
stato di valutazione lazy a "vuoto". Se F e' un file B1NARY, SEEK attende 
la terminazione dell'eventuale 1/0 e pone a "pronto" lo stato di 1/0 
simultaneo. 

SEEK viene meglio illustrata da alcuni esempi. Consideriamo ad esempio la 
struttura BINARY, modo di accesso DIRECT, con il seguente contenuto CHAR: 


'A' 

' B ' 

’C' 

’D' . 

'E' 

' F ' I 

' G 


1 

2 

3 

4 

5 

6 

7 

8 


Viene fatta una SEEK 1 implicita dopo una RESET o REWR1TE. Quindi, per 
file DIRECT, devono essere fornite le seguenti sequenze di comandi: 

RESET (F); 

{SEEK 1 iniziale, seguita da GET;} 

{FA contiene ora 'A'.} 

SEEK (F, 5); 

{Posizione del file a 5; FA contiene ancora 'A'} 

C := FA 

{C ora vale ’A'; C non contiene ’E’} 




Si deve osservare che C non contiene il quinto elemento di F, come si 
potrebbe supporre. Per ottenere questo valore occorre eseguire la 
seguente sequenza di comandi: 

RESET (F); 

{SEEK 1 iniziale, seguita da GET;} 

{FA ora contiene 'A'.} 

SEEK (F, 5); 

{Posizione del file a 5.} 

GET (F); 

{FA viene caricata con ' E '.} 

C := FA 

{C assume ora il valore 'E'.} 

Come regola, si deve far sempre seguire una GET alla SEEK (F, N) per 
assicurarsi che la ennesima componente sia contenuta nella variabile 
buffer. 

GET e PUT operano normalemente su file DIRECT con struttura B1NARY. 
Comunque READ e WRITE operano solo su file ASCII (file-testo). In 
particolare, READ non opera su file B1NARY con modo DIRECT perche' 
effettua una assegnazione della variabile buffer prima di richiamare la 
GET. D'altro lato, GET e PUT non vengono normalmente usate su file ASCII 
strutturati in modo DIRECT. La valutazione lazy rende la READ e la WRITE 
molto piu' appropriate. Si deve fare molta attenzione quando si vogliono 
mescolare operazioni normali sequenziali con operazioni di SEEK in modo 
DIRECT. 


FILE TEMPORANEI 

A volte un programma ha bisogno di un file per dati temporanei intermedi. 
In questo caso, possono essere creati file temporanei in modo 
indipendente dal sistema operativo. Per fare questo senza fornire il nome 
di un file in un formato specifico, occorre fare un ASSIGN del carattere 
zero come nome del file. 

Ad esempio: 

ASSIGN (F, CHR (0)) 

Il file System crea un unico nome per il file quando vede che esso e’ 
zero. 

In ambienti in cui diversi programmi condividono i file, il numero 
identificatore del programma in esecuzione viene a far parte del nome del 
file. I file temporanei vengono cancellati quando sono chiusi, 
esplicitamente oppure quando il file viene deallocato. RESET e REWRITE 
non cancellano il file. 
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18. UNITA COMPILABILI DI UN PROGRAMMA 


SOMMARIO 


Una unita' di compilazione e' un file sorgente che può' essere compilato 
separatamente dal compilatore. In questo capitolo sono descritti i tre 
tipi di unita' di compilazione consentiti in Pascal: programmi, moduli e 
unita' di implementazione. 
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INTRODUZIONE 

11 compilatore Pascal può' compilare tre tipi diversi di file sorgente: 
programmi, moduli ed implementazioni di unita'. Moduli e implementazioni 
di unita' possono venire compilati separatamente ed essere concatenati in 
seguito ad un programma senza dover essere ricompilati. A livello 
Standard si possono compilare soltanto programmi; moduli ed unita' sono 
permessi soltanto a livello Esteso. 

Esempio di programma compilabile: 

PROGRAM MA1N (INPUT, OUTPUT); 

BEG1N 

WR1TELN ('Main Program') 

END. {Programma principale} 

Esempio di modulo compilabile: 

MODULE M0D_DEM0; 

{Nessun parametro di intestazione} 

PROCEDURE M0D_PR0C; 

BEG1N 

WRITELN ('Output from MOD PROC in MOD DEMO.’) 

END; 

END. {Mod__Demo} 

Esempio di unita' compilabile: 

INTERFACE; 

UN1T UNITJJEMO (UNIT_PR0C); 

{UNIT_PR0C e' l'unico identificatore esportato} 

PROCEDURE UNIT_PR0C; 

END; 

1MPLEMENTAT10N OF UNITJ)EM0; 

PROCEDURE UN1T_PR0C; 

BEGIN 

WR1TELN ('Output from UNITPROC in UN1T_DEM0.') 

END; 

END. {Unit Demo} 






MODULE MOD^DEMO e UN IT UNIT_DEMO possono essere compilati separatamente 
ed inseriti di seguito nel programma principale nel modo seguente: 

{INTERFACE e' richiesta all'inizio di ogni} 

{sorgente che implementa o fa uso di un'unita'.} 

INTERFACE; 

UNIT UNIT_DEM0 (UNIT_PR0C); 

PROCEDURE UNITJ5R0C; 

END; 

PROGRAM MAIN (INPUT, OUTPUT); 

{La clausola USES serve per collegare} 

{l'implementazione ed il programma.} 

USES UNIT_DEM0; 

{La dichiarazione EXTERN serve per collegare} 

{la procedura del modulo.} 

PROCEDURE M0D_PR0C; EXTERN; 

BEGIN 

WRITELN ('Output from Main Program.'); 

M0D_PR0C; 

UNIT_PR0C; 

END. {Fine del programma principale.} 

Quando viene compilato il programma MAIN, l'output e’ costituito dalle 
seguenti parti: 

1. output dal programma principale 

2. output da M0D_PR0C dichiarata in MOD^DEMO 

3. output da UN1T_PR0C dichiarata in UN1T_DEM0 

Le regole che governano la costruzione e l'uso di programmi, moduli e 
unita' sono fornite nelle sezioni che seguono: 

"PROGRAMMI" 

"MODULI" 

"UNITA”' 
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PROGRAMMI 


Ad eccezione dell'intestazione e del punto alla fine, un programma Pascal 
ha lo stesso formato di una dichiarazione di procedura. Le istruzioni 
comprese tra le parole chiave BEG1N e END vengono dette "corpo del 
programma". 

Esempio di programma: 

{Intestazione di programma} 

PROGRAM ALPHA (INPUT, OUTPUT, A_F1LE, PARAMETER); 

{Sezione dichiarativa) 

VAR A_F1LE: TEXT; PARAMETER: STRING (10); 

{Corpo del programma} 

BEG1N 

REWRITE (AF1LE); 

WR1TELN (A_F1LE, PARAMETER); 

END. 

{Finisce con il punto '.'} 

La parola "ALPHA" dopo la parola chiave riservata "PROGRAM" e' 
l'identificatore di programma. Esso diventa l'identificatore per una 
procedura PUBLIC senza parametri, a un livello superiore di tutti gli 
altri identificatori nel programma. Questa procedura ha pure 
l'identificatore PUBLIC ENTGQQ, il quale e' richiamato in fase di 

inizializzazione per iniziare l'esecuzione del programma. 

Si può' richiamare il corpo del programma come una procedura PUBLIC da un 
altro programma oppure da un modulo o da un'unita 1 , facendo uso 

dell'identificatore del programma oppure di ENTGQQ come nome di procedura 
(questo non e' pero' consigliato). Questo significa che si può' 
ridichiarare l'identificatore di un programma all’interno di un programma 
con le regole usuali di visibilità'. L'identificatore di programma e’ 
allo stesso livello degli identificatori predichiarati; chiamare un 

programma 1NTEGER o READ causa quindi un errore. 

I parametri del programma indicano variabili che vengono impostate fuori 
del programma stesso. 11 programma comunica con il suo ambiente 
attraverso queste variabili. 

A livello Standard tutte le variabili di qualsiasi tipo FILE devono 

essere presenti come parametri di programma, dato che non c'e’ altro modo 
di fornire un nome di sistema operativo al file. Comunque, a livello 
Esteso, possono essere usate ASSIGN e READFN per assegnare nomi di file; 
in questo modo non e' piu' necessario passare queste variabili file come 
parametri. 

I parametri di un programma sono completamente diversi da quelli delle 
procedure; essi non vengono passati come parametri alla procedura che e' 
il corpo del programma. Tutti i parametri di programma devono essere 
dichiarati nella parte dichiarativa del blocco che costituisce il 
programma. 
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Se non vi sono parametri di programma e non si fa riferimento ai file 
INPUT e OUTPUT, e' sufficiente usare questa forma: 

PROGRAM <identificatore>; 

I due file INPUT e OUTPUT ricevono un trattamento speciale quando sono 
passati come parametri. 1 loro valori non vengono impostati come tutti 
gli altri parametri e non devono essere dichiarati, poiché' sono già' 
predichiarati. Ognuno di questi, quando e' usato sia implicitamente che 
esplicitamente, deve comparire come parametro di programma: 

URITE (OUTPUT, 'Prompt: '); {Uso esplicito} 

READLN (INPUT, P); 

URITE ('Prompt: '); {Uso implicito} 

READLN (P); 

II compilatore emette una segnalazione se essi vengono usati nel 
programma ma non vengono passati come parametri. L'unico effetto di INPUT 
e OUTPUT come parametri e' quello di evitare questa segnalazione. 

Si possono ridefinire gli identificatori INPUT e OUTPUT. Comunque, tutte 
le procedure e funzioni input/output su file-testo (READ, EOLN, ecc.) 
usano la definizione originale. RESET (INPUT) e REWRITE (OUTPUT) vengono 
generate automaticamente, presenti o no come parametri di programma; esse 
possono anche essere generate esplicitamente. 

L’inizializzazione del programma da' un valore ad ogni variabile 
parametro, eccetto INPUT e OUTPUT. Ogni parametro deve essere di un tipo 
semplice oppure STRING, LSTRING o FILE (cioè' di ogni tipo accettato 
dalla procedura READFN). I parametri di un programma devono essere- 
variabili intere: non e' permessa la selezione di componenti. 

Internamente, ogni parametro di programma usa il file INPUT e genera 
chiamate a READFN. Prima della lettura di ogni parametro viene fatta una 
chiamata speciale alla routine interna PPMFQQ. PPMFQQ legge i caratteri 
ritornati da una routine di interfaccia di sistema operativo chiamata 
PPMUQQ, che li legge a sua volta dalla linea di comando. PPMFQQ prende 
questi caratteri e li pone all'inizio del file INPUT. L'identificatore 
del parametro e' passato ad entrambe le routine (PPMFQQ e PPMUQQ). Alcuni 
sistemi operativi usano l'identificatore come prompt. 

L'uso dei parametri di programma in Pascal può' essere illustrato meglio 
mostrando come cambiare un programma in una procedura. Consideriamo il 
seguente programma: 

PROGRAM ALPHA (INPUT, OUTPUT, PI, P2,...Pn); 

<dichiarazioni> 

{includendo quelle per PI, P2,...Pn} 

BEGIN 

<corpo> 

END. 
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11 programma ALPHA potrebbe diventare la seguente procedura: 

PROCEDURE ENTGQQ [PUBLIC]; 

<dichiarazioni> 

{includendo quelle per PI, P2,...Pn) 

BEG1N 

PPMFQQ ( 1 PI'); READFN (INPUT, PI); 

PPMFQQ (*P2’); READFN (INPUT, P2); 

PPMFQQ (’Pn 1 ); READFN (INPUT, Pn); 

PPMEQQ; 

{Chiamata dopo la .lettura completa dei parametri) 

-distruzioni di programma» 

END; 

L'azione della routine di interfaccia PPMFQQ dipende dal sistema 
operativo in questione. 

Alcuni sistemi operativi possiedono elaborati meccanismi per trattare 
questo genere di parametri, usando menu e valori di default. Se il 
sistema operativo in questione rientra in questa categoria, lo stesso 
meccanismo si applica generalmente ai parametri di programma Pascal. 

Altri sistemi operativi meno sofisticati passano al programma il 
rimanente della linea usata per lanciarlo; in questo caso i valori dei 
parametri vengono presi direttamente dalla linea stessa. 

Se il sistema operativo non fornisce un meccanismo di passaggio di 
parametri, o se si verifica un errore durante l'uso di questo meccanismo, 
o ancora se non viene gestito un numero sufficiente di parametri, allora 
PPMFQQ gestisce da sola l'input dei parametri. Essa interfaccia in modo 
interattivo con l’utente, richiedendo i valori per ogni singolo 
parametro. Per ulteriori dettagli sul modo in cui la specifica 
implementazione inizializza i parametri di programma, si può' vedere 
l'Appendice A, "Caratteristiche di Implementazione", nel manuale 
"Linguaggio Pascal Guida Utente". 


MODULI 

1 moduli forniscono un metodo semplice per combinare diverse parti 
compilabili in un programma. Le unita', descritte piu’ oltre nella 
sezione "Unita"’, forniscono un metodo ancora piu' potente per ottenere 
lo stesso scopo. 

Un modulo e' un programma senza il corpo. L'identificatore 
nell'intestazione del modulo ha lo stesso spazio di descrizione 
dell'identificatore di programma. L'intestazione può' anche includere 
attributi applicabili a tutte le procedure e funzioni nel modulo. Non vi 
sono parametri di modulo, e neppure vi e' il corpo di un modulo. Un 



modulo finisce con la parola chiave END e un punto. 
Esempio di modulo: 


MODULO BETA [PUBLIC]; {Attributi opzionali} 

PROCEDURE GAMMA; 

BEG1N WRITELN {'Gamma') END; 

FUNCT10N DELTA: WORD; 

BEG1N DELTA := 123 END; 

END. {Nessun corpo prima di END} 


Dopo l'identificatore del modulo si possono fornire uno o piu' attributi 
(fra parentesi quadre) i quali valgono per tutte le procedure e funzioni 
presenti all'interno del modulo. A seconda degli attributi specificati 
valgono le seguenti regole: 

se non vi sono attributi viene assunto PUBLIC. Se esiste una lista di 
attributi (anche vuota) allora non viene assunto l'attributo PUBLIC. 

la direttiva EXTERN usata per una procedura particolare (o funzione) 
elimina l'attributo PUBLIC per l'intero modulo. 

EXTERN e 0R1G1N non possono essere specificati come attributi di un 
intero modulo, anche se possono essere specificati per le singole 
procedure. 

se vengono usati PURE e 1NTERRUPT, il modulo deve contenere solo 
funzioni PURE e procedure INTERRUPT. 

PUBLIC e' l'attributo per default per tutte le procedure e funzioni. 
Tuttavia, in alcuni casi, una chiamata di procedura PUBLIC richiede 
maggior spesa di tempo di. una chiamata locale. In altri casi 
l'identificatore di una procedura locale può' essere in conflitto con 
un identificatore globale passato al linker. Per evitare questi 
problemi occorre usare PUBLIC con procedure individuali e fornire una 
lista di attributi vuota al modulo (cioè' MODULE BETA. [];). 

Anche se un modulo non ha corpo, ma solo dichiarazioni, può' essere usato 
come procedura senza parametri; cioè' si può' dichiarare l'identificatore 
del modulo come una procedura e richiamarlo da altri programmi, moduli o 
unita'. Questa procedura di modulo (a differenza di una procedura per 
programmi o unita') non viene mai chiamata automaticamente, poiché' il 
compilatore non può' sapere se il modulo e' stato caricato e quindi non 
può' sapere se generare una chiamata al modulo stesso. 

In alcuni casi il compilatore genera codice di inizializzazione di 
modulo, che deve essere eseguito quando il modulo viene richiamato come 
procedura EXTERN. Se questo codice e 1 necessario, il compilatore emette 
questa segnalazione: 

Initialize Module 
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Se compare questo messaggio occorre dichiarare il modulo come una 
procedura EXTERN senza parametri e chiamare una volta la procedura prima 
di accedere a qualche elemento del modulo (questo e’ necessario se il 
modulo dichiara variabili FILE). 

Dato un modulo M che dichiara le proprie variabili file, un programma che 
usa M deve essere del tipo: 

PROGRAM P (INPUT, OUTPUT); 

PROCEDURE M; EXTERN; 

BEG1N 

M; {La chiamata runtime inizializza le variabili file.} 

m 

■ 

END. 

Se il modulo usa (USES) delle interfacce che richiedono inizializzazioni, 
il compilatore genera un messaggio per avvertire che il modulo deve 
essere dichiarato EXTERN e richiamato come descritto nel paragrafo 
precedente. 

Se il modulo M non contiene alcuna delle proprie variabili file oppure 
usa unita' inizializzate, non occorre richiamare M come procedura nel 
corpo del programma oppure dichiararlo come una procedura EXTERN. 

Alle variabili nei moduli non sono automaticamente assegnati attributi. 
Ad eccezione della fase di inizializzazione delle variabili file 
descritta sopra, le variabili nei moduli sono esattamente come le 
variabili nei programmi. 


UNITA’ 


11 Pascal fornisce un modo strutturato per accedere a moduli separati. 
Un’unita' e' composta da due parti: 

1. un'interfaccia 

2. un'implementazione 

L'interfaccia compare in testa al 1'implementazione di un'unita' ed in 
cima ad ogni programma, modulo, interfaccia o implementazione che fa uso 
di un'unita'. 

Un'unita' contiene costanti, tipi, tipi super, variabili, procedure e 
funzioni, ognuna delle quali e' dichiarata nella sua interfaccia. 
Qualsiasi programma, modulo, implementazione o interfaccia può' far uso 
di un'interfaccia. Un'implementazione contiene i corpi delle procedure e 
delle funzioni di un'unita', come pure le eventuali inizializzazioni per 
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l'unita'. Lo schema generale e' illustrato in figura 18-1. 


INTERFACE; UN1T X; 

<dichiarazioni di identificatore> 
END; 


<intestazione> 


1MPLEMENTAT10N OF X: 

USES X; 


cimplementazioni 

<dichiarazioni> 


dell'identificatore> 

<corpo opzionale> 


<corpo opzionale> 

END. 


END. 


Fig. 18-1 Unita' Pascal 


Quando vengono usate le unita', la loro interfaccia deve comparire prima 
di ogni altra cosa nel file sorgente, sia in un'implementazione che in un 
programma, modulo, od altra unita' che ne fa uso. Nel diagramma 
precedente, 1'INTERFACE e' condivisa; la stessa INTERFACE esiste sia 
nella 1MPLEMENTAT10N che in altri file sorgente. Analogamente, qualsiasi 
altro programma, modulo o unita' può' usare l'unita' X (USE UN1T X); può' 
esserci un'altra 1MPLEMENTAT10N OF X, in linguaggio assembler, ad 
esempio. 

Separando l'interfaccia dall 'implementazione si può' compilare un 
programma prima o durante la scrittura dell'implementazione. Oppure si 
può' caricare un programma con una delle tante implementazioni (ad 
esempio una in Pascal, un'altra in assembler). Un voluminoso programma in 
Pascal può' essere meglio organizzato come un programma principale ed un 
certo numero di unita' (alcune parti del sistema runtime del Pascal sono 
organizzate in modo analogo). Comunque soltanto un programma, un modulo, 
un'interfaccia o un'implementazione possono fare uso di un'unita', non 
una procedura o funzione individuali. 

Un programma, modulo, implementazione o interfaccia che fanno uso di 
un'interfaccia devono riportarla all'inizio del file sorgente. 
Generalmente il file che contiene l'interfaccia e' un file separato; 
occorre quindi usare il metacomando $1NCLUDE per richiamare questo file 
in fase di compilazione. Dato che esiste solo una copia originale 
dell'interfaccia, questo modo e' piu' facile e sicuro che inserire 
fisicamente l'interfaccia in tutti i posti in cui viene usata (correndo 
il rischio di averne diverse versioni). 

In alcune applicazioni occorre avere diverse versioni della stessa 
interfaccia. Ad esempio, esiste una versione separata dell'interfaccia 
del blocco di controllo dei file Pascal per ogni sistema operativo; il 
file $1NCLUDE viene ricopiato dalla versione di interfaccia voluta, prima 
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Naturalmente ogni versione deve 
può* anche avere alcuni valori 
le porzioni dipendenti dalla 

Se l'INTERFACE per UN1T X nella figura 18-1 e' contenuta nel file X.INT, 
allora l'unita' compilativa che fa uso dell'unita' e della sua 
IMPLEMENTATTON deve soltanto includere ($1NCLUDE) il file interfaccia 
all'inizio del file sorgente, come illustrato in figura 18-2. 


di compilare il programma che ne fa uso. 
dichiarare gli identificatori comuni; 
costanti usati dal metacomando $IF per 
versione dell'interfaccia. 


{$1NCLUDE: 

X.INT'} 

cintestazione di unita' 


IMPLEMENTATION 0F X; 

compilativa> 



USES X; 


<implementazioni di 

<dichiarazioni> 


identificatore> 

<corpo opzionale> 


ccorpo opzionale:» 

END. 


END. 


Fig. 18-2 Unita' con File X.INT 


Un file sorgente Pascal di qualsiasi tipo contiene zero o piu', 
interfacce, separate da punto e virgola e seguite da un programma, da un 
modulo o da un'implementazione seguita da un carattere punto. Ognuna di 
queste entità' e' detta "divisione". Vedere le sezioni che seguono, "La 
Divisione Interfaccia" e "La Divisione Implementazione", per dettagli 
sulle divisioni. 

Un'unita' e' costituita da un identificatore seguito da una lista di 
identificatori tra parentesi. Questi identificatori vengono detti 
costituenti dell'unita' e sono quelli forniti da un'unita' o richiesti da 
un programma, modulo o altra unita'. L'unita' e' preceduta dalla parola 
chiave UN1T per l'unita.' fornita, oppure da USES per quella richiesta. 

Tutti gli identificatori di unita’ in un file sorgente devono essere 
univoci. Gli identificatori tra parentesi, comunque, possono differire 
nelle divisioni fornite e in quelle richieste. La corrispondenza tra gli 
identificatori forniti e richiesti e' posizionale nella lista (in modo 
simile ai parametri formali ed attuali delle procedure). 

La lista degli identificatori in una clausola USES e' opzionale; quando 
non sono forniti, gli identificatori in UNIT vengono usati per default. 
Diversi identificatori in USES permettono di cambiarli in caso di 
conflitti tra diverse interfacce. Possono essere combinate clausole USES 
multiple; quindi le seguenti istruzioni sono equivalenti: 
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USES A; USES B; USES C; 
USES A, B, C; 


Si deve anche osservare che un'unita' può* fornire codice opzionale di 
inizializzazione. Tale codice e' determinato dalle parole chiave BEG1N e 
END alla fine dell'interfaccia, e viene fornito in un corpo opzionale 
nell'1MPLEMENTAT10N. 

Esempio di un'unita' che richiede codice di inizializzazione: 

11 file programma, PLOTBOX: 

{$1NCL UDE:'GRAPH1'} 

PROGRAM PLOTBOX (INPUT, OUTPUT); 

USES GRAPHICS (MOVE, PLOT); 

{MOVE e PLOT sono identificatori USE} 

BEG1N 

MOVE (0, 0); 

PLOT (10, 0); PLOT (10, 10); 

PLOT (0, 10); PLOT (0, 0); 

END. 


11 file interfaccia, GRAPHI: 

INTERFACE; 

UN1T GRAPHICS (BJUMP, WJUMP); 

{Gli identificatori esportati sono BJUMP e WJUMP.} 
{Nel programma suddetto, MOVE e PLOT sono pseudonimi} 
{di questi identificatori.} 

PROCEDURE BJUMP (X, Y: 1NTEGER); 

PROCEDURE WJUMP (X, Y: 1NTEGER); 

{Soltanto intestazioni di procedure.} 

BEG1N 

{BEG1N implica codice di inizializzazione.} 

END; 


18-10 


LINGUAGGIO PASCAL MANUALE GENERALE 



11 file implementazione: 


{$1NCLUDE:'GRAPH1 1 } 

{$1NCLUDE:'BASEPL'} 

{La seguente implementazione fa uso (USES) della UN1T BASEPL.} 
{L'interfaccia e’ quindi inclusa sopra, e l’unita 1 sotto.} 
1MPLEMENTAT10N OF GRAPHICS; 

{L'implementazione non e' visibile all'utente.} 

USES BASEPLOT; 

{Le procedure BJUMP e WJUMP sono implementate di seguito.} 

{Da notare che nell'intestazione sono dati} 

{solo gli identificatori.} 

{La lista dei parametri e' data nell'interfaccia.} 

PROCEDURE BJUMP; 

BEG1N DRAWL1NE (BLACK, X, Y) END; 

PROCEDURE WJUMP; 

BEG1N DRAWL1NE (WH1TE, X, Y) END; 

BEG1N 

{lnizializzazione. } 

DRAWL1NE (BLACK, 0, 0) 

END. 

11 file interfaccia, BASEPL: 

INTERFACE; 

UN1T BASEPLOT (BLACK, WH1TE, DRAWL1NE); 

{Altri identificatori oltre agli identificatori} 

{di procedure possono essere esportati.} 

{Si deve osservare che BLACK e WH1TE sono costanti esportate} 

TYPE RA1NB0W = (BLACK, WH1TE, RED, BLUE, GREEN); 

PROCEDURE DRAWL1NE (C: RA1NB0W; H, V: 1NTEGER); 

{Non c’e 1 BEG1N, quindi non c'e' un'unita' inizializzata.} 

END; 

La clausola USES può' essere specificata soltanto dopo l'intestazione di 
un programma, di un modulo, di un'interfaccia o di un'implementazione. 
Quando il compilatore incontra una clausola USES, memorizza nella tabella 
dei simboli tutti gli identificatori dei costituenti (dalla clausola UN1T 
o dalla USES). Gli identificatori di variabili, procedure e funzioni 
vengono associati ai rispettivi identificatori nell'interfaccia e 
diventano riferimenti esterni per il linker. 

Quando viene compilato il programma sopra descritto, ogni riferimento 
alla procedura PLOT genera un riferimento esterno a WJUMP. Comunque i 
riferimenti a DRAWL1NE usano lo stesso identificatore per il riferimento 
esterno. 

Le costanti ed i tipi (inclusi i tipi super array) nell'interfaccia 
vengono semplicemente memorizzati nella tabella dei simboli del programma 
(insieme ai nuovi identificatori, se ve ne sono). Quindi un tipo in 
un'interfaccia e' identico al corrispondente tipo nella clausola USES. 

Gli identificatori di campo di record sono gli stessi nel programma, 
nell'interfaccia e nel 1'implementazione. Gli identificatori di costanti 
di tipo enumerato devono essere forniti esplicitamente, se necessario; 
essi non sono automaticamente ricavati dall’identificatore di tipo 
enumerato. Le etichette non possono essere fornite da un'interfaccia, 



dato che l'etichetta di un GOTO deve essere nella stessa divisione del 
GOTO. 


LA DIVISIONE INTERFACCIA 

La struttura di un'interfaccia e' la seguente: 

1. Una sezione di interfaccia comincia con la parola riservata 
INTERFACE, un numero opzionale di versione tra parentesi ed un punto 
e virgola. 

2. Seguono la parola chiave UN1T, l'identificatore di unita', la lista 
tra parentesi degli identificatori (costituenti) esportati ed un 
altro punto e virgola. 

3. Le altre unita’ richieste da questa interfaccia vengono di seguito, 
nelle clausole USES. 

4. L'ultima sezione e' la dichiarazione attuale per tutti gli 

identificatori forniti nella lista dell'interfaccia, che fa uso delle 
usuali sezioni CONST, TYPE e VAR e delle intestazioni di procedure e 
funzioni in ordine qualsiasi. Non sono permesse le sezioni LABEL e 
VALUE. 

5. L’interfaccia termina con BEG1N END, se e' richiesta 
l'inizializzazione, o solo con END in caso contrario. 

Eccetto ORIGIN, che non può' essere usato in interfacce, può' essere 
fornita la maggior parte degli attributi a variabili, procedure e 
funzioni. Dato che gli attributi PUBLIC o EXTERN oppure la direttiva 
EXTERN vengono forniti automaticamente, non bisogna specificare attributi 
che possono essere in conflitto (cioè' PUBLIC e EXTERN). 

Di solito, gli unici identificatori da dichiarare sono i costituenti, ma 
vengono permessi altri identificatori. Se l'interfaccia ha bisogno di una 
chiamata per inizializzare l'unita', la parola chiave BEG1N genera la 
chiamata. L'interfaccia termina con la parola riservata END ed un punto e 
virgola. 

Esempio di divisione interfaccia: 

INTERFACE (3); 

UN1T KEYF1LE (F1NDKEY, 1NSKEY, DELKEY, KEYREC); 

USES KEYPR1M (KFCB, KEYREC); 

PROCEDURE F1NDKEY (CONST NAME : LSTR1NG; 

VAR KEY: KEYREC; 

VAR REC: LSTR1NG); 

PROCEDURE 1NSKEY (CONST REC: LSTR1NG; 

VAR KEY: KEYREC); 

PROCEDURE DELKEY (CONST KEY: KEYREC); 

PROCEDURE NEWKEY (CONST KEY: KEYREC); 

BEG1N 

{ìndica che l'unita' e' inizializzata.} 

END; 
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In questo esempio KEYREC e' parte dell'unita' KEYPRIM, ma viene esportato 
come parte dell'unita’ KEYF1LE. KFCB fa pure parte dell'unita' KEYPRIM ma 
non viene esportato dall'unita' KEYF1LE. Questo e' permesso ma non e' 
inutile dato che NEWKEY non e' nota neppure nell'implementazione 
dell'unita'. 

La memoria disponibile in fase di compilazione limita il numero di 
identificatori che il compilatore può' gestire. Questo limite può' essere 
un problema se si hanno molte interfacce, specialmente nel caso in cui 
interfacce usano altre interfacce. 11 sintomo e' il seguente messaggio: 

Compiler Out Of Memory 

11 messaggio viene emesso prima dell'ultima USES del programma, modulo o 
implementazione in compilazione. Occorre quindi ridurre il numero di 
identificatori nell'interfaccia contenente solo tipi (e costanti relative 
ai tipi) e condivisa dalle altre interfacce, ed usare soltanto questa 
interfaccia nelle altre. 

Se viene inclusa una variabile file nell'interfaccia, l'unita' deve 
essere inizializzata. 11 compilatore non fornisce il solito messaggio: 

lnitialize Variable 

quando si dichiara un file in un'interfaccia. Se l'interfaccia contiene 
file, occorre essere sicuri di terminarle con BEGIN END per invocare 
1'inizializzazione. 


LA DIVISIONE IMPLEMENTAZIONE 

Si può' compilare 1'implementazione di un'unita' separatamente da altri 
programmi, moduli o unita'; occorre pero' compilarla con la sua propria 
interfaccia. La struttura di un'implementazione e' la seguente: 

1. L'implementazione di un'interfaccia comincia con la parola riservata 
1MPLEMENTAT10N OF, seguita dall'identificatore dell'unita' e da un 
punto e virgola. 

2. Viene poi la clausola USES, per le unita' che la richiedono per il 
loro proprio uso. 

3. Vengono quindi le usuali clausole LABEL, CONSTANT, TYPE, VAR e VALUE 
con tutte le procedure e funzioni descritte come costituenti (che 
devono essere nel blocco piu’ esterno) oppure usate internamente in 
qualsiasi ordine. 

Le sezioni VALUE e LABEL possono comparire nell'implementazione, non 
nell'interfaccia. 
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Esempio di implementazione: 

IMPLEMENTAT10N OF KEYFILE ; 

U5ES KEYPRIM (KEYBLOCK, KEYREC); 

VAR KEYTEMP: KEYREC; 

PROCEDURE F1NDKEY; 

BEG1N 

{Codice per F1NDKEY} 

END; 

PROCEDURE 1NKEY; 

BEG1N 

{Codice per 1NKEY} 

END; 

PROCEDURE DELKEY; 

BEG1N 

{Codice per DELKEY} 

END; 

BEG1N 

{Qualsiasi codice di inizializzazione.} 
END. 


Costanti, variabili e tipi dichiarati nell'interfaccia non vengono 
ridichiarati nell'implementazione. Comunque possono essere dichiarati 
altri tipi "privati". Procedure e funzioni dell'unita' non includono la 
loro lista dì parametri (essa e' presente nell'interfaccia) o attributi. 
(Si assume l'attributo PUBLIC, a meno che la direttiva EXTERN non' sia 
data esplicitamente). 

Tutte le procedure e funzioni in INTERFACE devono essere definite in 
IMPLEMENTAT10N. Ad esse può' comunque essere associata la direttiva 
EXTERN in modo che piu' 1MPLEMENTAT10N (oppure un'1MPLEMENTAT10N e codice 
assembler) possano implementare una singola INTERFACE. Tutte le procedure 
e funzioni con direttiva' EXTERN devono comparire per prime; il 
compilatore effettua un controllo ed emette una segnalazione di errore se 
la direttiva EXTERN manca o non e’ al posto giusto. 

Si può’ implementare un'unita' in linguaggio assembler; in questo caso 
tutte le variabili, procedure e funzioni devono generare definizioni 
pubbliche per il caricatore. Si possono usare anche altri linguaggi per 
implementare un'unita' (MS-FORTRAN o altri). 
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Se l'interfaccia non e' scritta in Pascal occorre fornire l'attributo di 
sequenza di chiamata (e naturalmente conoscere le sequenze di chiamata e 
la rappresentazione interna dei parametri). 

Alcune unita' runtime del Pascal sono state implementate in assembler, 
altre in Pascal. Ogni sezione IMPLEMENTATION che non implementa tutte le 
procedure di interfaccia deve, all'inizio, dichiarare tali procedure e 
funzioni EXTERN. 

Un'implementazione, come un programma, può 1 avere un corpo. 11 corpo 
viene eseguito quando il programma che usa l'unita' viene invocato; cosi' 
vengono effettuate tutte le inizializzazioni richieste dall'unita 1 . Esso 
include 1'inizializzazione delle variabili file e la parte di 
iniziaiizzazione utente. Se il file sorgente contiene diverse unita’, 
viene richiamato il corpo di ogni inizializzazione nell'ordine in cui 
compare la relativa USES nel file sorgente. Comunque il codice di 
inizializzazione per un'unita' viene eseguito soltanto una volta, 
indipendentemente dal numero di clausole che fanno riferimento ad esso. 

Il corpo, come in un programma, e' composto da una lista di istruzioni 
comprese tra BEGIN e END. In fase di inizializzazione, il numero di 
versione dell'interfaccia con la quale era stata compilata 
1'implementazione viene confrontato con il numero di versione 
dell’interfaccia compilata con il programma. Questi numeri devono 
coincidere. Questo controllo contribuisce a mantenere un programma 
aggiornato. Se non viene fornito alcun numero di versione, viene assunto 
il valore zero. 

La parola chiave BEGIN prima dell'END finale indica un'unita' con 
inizializzazione. Se viene omessa la parola chiave BEGIN, 
1'implementazione non deve avere un corpo e non viene fatta alcuna 
inizializzazione. Un'unita' senza inizializzazione manca di: 

codice utente di inizializzazione 

garanzia di unica inizializzazione 

controllo di numero di versione 

Il formato di una implementazione non inizializzata e' simile a quello di 
un programma: 

IMPLEMENTATION 0F cidentificatore di unita'> 

<dichiarazioni> 

BEGIN 

<corpo> {Codice di inizializzazione} 

END. 

Il formato di un'implementazione non inizializzata e' il seguente (simile 
ad un modulo): 

IMPLEMENTATION 0F «identificatore di unita’> 

<dichiarazioni> 

{Nessun codice di inizializzazione} 

END. 
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Se 1'implementazione di un'unita' non inizializzata dichiara un file o fa 
uso (USES) di un’interfaccia che richiede 1'inizializzazione, allora il 
compilatore avverte di inizializzare 1'implementazione. 
L'inizializzazione viene fatta in modo automatico se si aggiunge la 
parola chiave BEG1N sia all'interfaccia che all'inizializzazione. Come 
per i moduli, e’ possibile dichiarare un'unita' non inizializzata come 
procedura EXTERN e quindi farla inizializzare in fase di chiamata del 
programma. 
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METAC0MAND1 ' 


INTRODUZIONE 


I metacomandi costituiscono il linguaggio di controllo del compilatore. 
Sono direttive al compilatore che permettono di controllare: 

il livello di linguaggio Pascal 

il debugging e la gestione degli errori 

il livello di ottimizzazione 

l'uso del file sorgente durante la compilazione 
il formato del file listing 

Si possono specificare uno o piu’ metacomandi all’inizio di un commento; 
i metacomandi multipli devono essere separati da spazi o da virgole. Tra 
i metacomandi gli spazi, le tabulazioni e la marca di riga vengono 
ignorati. Le seguenti definizioni sono quindi equivalenti: 

{$PAGE:12} 

($PAGE : 12} 

Per disabilitare i metacomandi all'interno dei commenti, si deve 
collocare qualunque carattere che non sia di tabulazione o di spazio 
davanti al primo segno di dollaro, nel modo seguente: 

{x$PAGE:12} 

Si possono cambiare le direttive al compilatore durante il corso di un 
programma. Ad esempio, la maggior parte di un programma può' essere 
$L1ST-, con alcune sezioni aventi $L1ST+ come richiesto. 

Alcuni metacomandi, come $L1NES1ZE, vengono normalmente applicati 
all'intera compilazione. 

Nello scrivere programmi Pascal per altri compilatori occorre ricordare 
che i metacomandi sono sempre non standard e raramente trasportabili. 

1 metacomandi richiamano od impostano il valore di una meta variabile. Le 
metavariabili sono classificate come: senza tipo, intere, switch on/off e 
stringa. 

Le metavariabili senza tipo vengono richiamate quando usate, come in 
$EXTEND. 

Le metavariabli intere possono contenere un valore numerico, come in 
$PAGE:101. 

Gli switch on/off possono essere impostati con un valore numerico in 
modo che un valore maggiore di zero pone lo switch a on ed un valore 
minore od uguale a zero lo pone off, come in $MATHCK:1. 

Le metavariabili stringa possono contenere un valore stringa, come in 
$T1TLE:'COM PROGRAM'. 
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La tabella 19-1 illustra le convenzioni notazionali usate 
descrizione dei metacomandi che seguono: 


nella 


NOTAZIONE 


SIGNIFICATO 


11 metacomando e' senza tipo. 

+ o - 11 metacoraando e' uno switch on/off. 

+ pone il valore a 1 (on). 

- pone il valore a 0 (off). 

Il default e' indicato da + o - nell’intestazione. 
:<n> 11 metacomando e' un intero 

:’<testo>' 11 metacomando e' una stringa 


Tabella 19-1 Notazione dei Metacommandi 

Il valore stringa nel metalinguaggio può' essere una stringa letterale o 
un identificatore costante di stringa. Le espressioni costanti non sono 
permesse per numeri e stringhe, sebbene si possa ottenere lo stesso 
effetto col dichiarare un identificatore costante uguale all'espressione 
ed usare l'identificatore nel metacomando. 

Nei metacomandi, i valori booleani e le costanti ennumerate vengono 
trasformati nei loro valori ORD. Quindi un booleano FALSE diventa 0 e 
TRUE diventa 1. 

Una lista alfabetica completa dei metacomandi Pascal e' fornita 
nell'Appendice G, "Riepilogo dei Metacomandi Pascal". 


LIVELLO DI LINGUAGGIO E DI OTTIMIZZAZIONE 

1 metacomandi illustrati nella tabella 19-2 permettono di controllare il 
livello (Standard, Esteso o di Sistema) al quale il compilatore tratta il 
programma, ed il grado di ottimizzazione usato. Alcuni di questi 
metacomandi possono non essere presenti nella versione usata. Per 
ulteriori dettagli si può' vedere l'Appendice A, "Caratteristiche di 
Implementazione", nel manuale "Linguaggio Pascal Guida Utente". 
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METACOMANDI 


NOME | DESCRIZIONE 


$EXTEND 
$lNTEGER:<n> 
$REAL:<n> 


i 

Aggiunge le prestazioni del livello Esteso. 

i 

I Imposta la lunghezza del tipo 1NTEGER. 

| Imposta la lunghezza del tipo REAL. 


$R0M 

$S1MPLE 

$S1ZE 

$SPEED 

SSTANDARD 

$SYSTEM 


Emette una segnalazione sull 1 inizializzazione statica. 

j Disabilita l'ottimizzazione globale. 

\ 

| Minimizza la dimensione del codice generato. 

i 

j 

| Minimizza il tempo di esecuzione del codice. 

| Abilita il livello Standard. 

i 

! Aggiunge le prestazioni del livello Esteso e Sistema. 


Tabella 19-2 Livello di Linguaggio e di Ottimizzazione 

11 compilatore emette una segnalazione quando incontra una prestazione il 
cui livello non e' stato abilitato. 11 valore di default e' $EXTEND il 
quale permette estensioni strutturate che sono abbastanza semplici e 
portabili. E’ anche possibile richiedere esplicitamente l'estensione 
$SYSTEM che e', per sua natura, a basso livello, dipendente dalla 
macchina e relativamente non strutturata. 

$1NTEGER e $REAL definiscono la lunghezza (cioè' la precisione) dei tipi 
standard 1NTEGER e REAL. S1NTEGER può' valere soltanto 2 (default), per 
interi su 16 bit. Si può' comunque impostare $REAL a 4 o 8 (default), per 
avere il tipo REAL identico rispettivamente a REAL4 o REAL8. 

L'effetto dei metacomandi $S1ZE e $SPEED varia a seconda della versione 
dell'ottimizzatore del compilatore. 11 default e' $SIZE. Se si seleziona 
$S1MPLE, non viene fatta alcuna ottimizzazione. $S1ZE, $SPEED e $S1MPLE 
sono tutti mutuamente esclusivi. Quando viene specificato $R0M, il 
compilatore segnala che i dati statici non verrano inizializzati nelle 
seguenti situazioni: 

1. nella sezione VALUE 

2. ogni volta che 1'inizializzazione statica e' dovuta a $1N1TCK 
(descritto nella sezione seguente, "Debugging e Gestione degli 
Errori"). 




DEBUGGING E GESTIONE DEGLI ERRORI 


I metacomandi contenuti nella tabella 19-3 servono per il debugging e per 
la gestione degli errori. Essi generano anche codice di controllo runtime 
degli errori. 


METACOMMANDO DESCRIZIONE 


$BRAVE+ 

$DEBUG- 

$ENTRY- 

$ERR0RS:<n> 

$G0T0- 

$INDEXCK+ 

$INITCK- 

$LINE- 

$MATHCK+ 

$NILCK+ 

SRANGECK+ 

$RUNTIME- 

$STACKCK+ 

$TAGCK- 

$WARN+ 


lnvia messaggi di errori e segnalazioni su video. 

Abilita/Disabilita tutti i controlli di debug (CK 
nei metacomandi seguenti). 

Genera chiamate di entrata/uscita da procedure per 
il debugger. 

Imposta il numero massimo di errori per pagina (de¬ 
fault 25). 

Indica i GOTO come "pericolosi". 

Controlla se i valori indice dell'array, e gli indi¬ 
ci di super array, sono compresi nel campo di varia¬ 
bilità '. 

Controlla l'uso di valori non inizializzati. 

Genera chiamate di numero di linea per il debugger. 

Controlla gli errori matematici come l'overflow e la 
divisione per zero. 

Controlla la correttezza dei valori puntatore. 

Controlla la validità' dei subrange. 

Determina il contesto degli errori runtime. 

Controlla l'overflow dello stack all'ingresso di 
procedure e funzioni. 

Controlla i campi etichettati nei record con varian¬ 
ti . 

Emette segnalazioni nel file listing. 


Tabella 19-3 Debugging e Gestione degli Errori 
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Se e' presente l'indicatore di controllo quando il compilatore tratta 
un'istruzione, allora vengono fatti tutti i controlli relativi 
all’istruzione stessa. Un errore runtime effettua una chiamata al 
supporto runtime della routine, EMSEQQ (sinonimo di ABORT). Quando viene 
chiamata EMSEQQ, il compilatore passa le seguenti informazioni: 

messaggio di errore 

codice standard di errore 

valore opzionale di stato di errore, come il codice di ritorno del 
sistema operativo 


EMSEQQ ha pure disponibili: 

il contatore di programma nel punto in cui si e' verificato l'errore 
il puntatore di stack nel punto in cui si e' verificato l'errore 
il puntatore frame nel punto in cui si e' verificato l'errore 
il numero della linea corrente (se c'e' $L1NE) 

il nome della procedura o della funzione ed il nome del file sorgente 
ove la procedura o funzione e' stata compilata, (se c'e' $ENTRY). 

Ognuno di questi metacomandi e' descritto in dettaglio nelle pagine 
seguenti. La maggior parte dei metacomandi in questo gruppo può' essere 
fornita al compilatore sotto forma di commutatori di linee di comando. Si 
può' vedere, piu' oltre, la sezione "Switch di Linea di Comando" per 
ulteriori dettagli. 


$BRAVE+ 


$DEBUG- 


$ENTRY- 


lnvia messaggi di errore e segnalazioni su terminale, 
(oltre a riportarle sul file listing). Se il numero di 
errori e segnalazioni supera la dimensione del video, 
occorre controllarli sul file listing. 

Abilita/disabilita tutti gli switch di debug (cioè' quelli 
che terminano con "CK"). Può' essere utile impostare 
$DEBUG- all'inizio di un programma per abilitare tutti i 
controlli e poi abilitare selettivamente gli switch che 
interessano. Oppure si può' usare questo metacomando per 
abilitare tutti gli switch all'inizio, e disabilitare 
selettivamente quelli che non interessano. Per default 
alcuni switch sono abilitati, altri no. 

Genera chiamate di ingresso e uscita da procedure. Ciò' 
permette al debugger o al gestore di errori di riconoscere 
la procedura o funzione nella quale si e' verificato 
l'errore. Poiché' questo switch genera un notevole 
incremento di codice supplementare per ogni procedura o 
funzione, e' consigliabile usarlo solo in fase di debug. 
Notare che $L1NE+ richiede $ENTRY+; quindi $L1NE+ abilita 
$ENTRY e $ENTRY- disabilita $L1NE. 




$ERRORS:<n> 


$GOTO- 


$1NDEXCK+ 


$1N1TCK- 


Stabilisce un limite massimo al numero degli errori 
permessi per pagina. La compilazione termina se questo 
numero viene superato. 11 valore di default e' 25 errori 
e/o segnalazioni per pagina. 

Associa a tutti i GOTO una segnalazione che li considera 
'pericolosi'. Questa segnalazione può* essere utile in 
alcune circostanze: 

per incoraggiare la programmazione strutturata in un 
ambiente didattico 

per indicare tutte le istruzioni GOTO durante la fase 
di debug 

Controlla che i valori degli indici degli array, compresi 
i super array, siano all'interno del campo di 
variabilità'. Poiché' l'indicizzazione di array avviene 
molto spesso, il controllo viene abilitato separatamente 
da altri controlli di subrange. 

Controlla la presenza di valori non inizializzati, come: 

1NTEGER non inizializzati e subrange 1NTEGER di 2 byte 
con valore esadecimale 16#8000 

subrange di 1 byte di 1NTEGER non inizializzati con 
valore esadecimale 16#80 

puntatori non inizializzati con valore 1 (se e' 
abilitato $N1LCK) 

REAL non inizializzati con valore speciale 

11 metacomando $1N1TCK genera codice per effettuare le 
seguenti operazioni: 

stabilire i valori non inizializzati quando essi 
vengono allocati 

stabilire il valore del campo di variabilità' di 
1NTEGER per la variabile di controllo di FOR non 
inizializzata quando il ciclo di FOR termina 
correttamente 

stabilire il valore di una funzione che ritorna uno 
dei valori dei tipi non inizializzati all'ingresso 
della funzione 

$1N1TCK non genera mai inizializzazioni o controllo per 
WORD o tipi indirizzo. Le variabili allocate staticamente 
vengono caricate con i loro valori iniziali. $1N1TCK non 
controlla valori in un array o in un record quando l'array 
o il record vengono usati. 
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$LINE— 


$MATHCK+ 


$N1LCK+ 


$RANGECK+ 


Le variabili allocate nello stack o nello heap hanno 
valori inizializzati mediante codice generato. $1N1TCK non 
inizializza le variabili delle classi seguenti: 

variabili menzionate nella sezione VALUE 

campi con varianti in un record 

componenti di un super array allocato con la procedura 
NEW 


Genera una chiamata al debugger oppure al gestore degli 
errori per ogni linea di codice eseguibile. Questo 
permette al debugger di determinare il numero della linea 
dove e' stato emesso l'errore. Dato che questo 
metacomando genera un notevole ammontare di codice 
supplementare per ogni riga del programma, esso dovrebbe 
essere specificato solamente in fasi di debug. Notare che 
$L1NE+ richiede $ENTRY+; quindi $L1NE+ abilita $ENTRY e 
$ENTRY- disabilita $L1NE. 

Controlla gli errori matematici, incluso l'overflow di 
1NTEGER e WORD e la divisione per zero. $MATHCK non 
controlla un risultato 1NTEGER con valore -MAX1NT-1 (cioè 1 
#8000); $1N1TCK non si accorge se in seguito questo valore 
viene assegnato ed usato. 

Disabilitando SMATHCK, non sempre si disabilita il 
controllo di overflow. Esistono comuque routine di 
libreria che effettuano la somma e la moltiplicazione con 
overflow (LADDOK, LMULOK, SADDOK, SMULOK, UADDOK e 
UMULOK). Per la descrizione di queste funzioni si può' 
vedere "Elenco delle Funzioni e Procedure", nel Capitolo 
16. 


Controlla l'esistenza delle seguenti condizioni: 


puntatori senza riferimento con valore N1L 

puntatori non inizializzati se e' abilitato anche 
$1N1TCK 


puntatori al di fuori del campo di variabilità’ 
puntatori che indicano un blocco libero nell'area heap 


$N1LCK agisce tutte le volte che un puntatore viene 
privato del riferimento oppure passato alla procedura 
DISPOSE. $N1LCK non effettua controlli su tipi indirizzo. 


Controlla la validità' del subrange nelle seguenti 
condizioni : 


assegnazione ad una variabile subrange 



istruzioni CASE senza clausola 0THERW1SE 


$RUNT1ME- 


$STACKCK+ 


$TAGCK- 


$WARN+ 


parametri attuali per le funzioni CHR, SUCC e PRED 

indici nelle procedure PACK e UNPACK 

assegnazioni set e LSTR1NG, e parametri di valore 

limiti superiori di super array passati alla procedura 
NEW 

Se lo switch $RUNT1ME e' abilitato dorante la compilazione 
di una procedura o di una funzione, la "locazione di 
errore" e' il posto dove la procedura o funzione sono 
state chiamate, e non la locazione all'interno della 
procedura o funzione. Questa informazione e' normalmente 
inviata al terminale, ma e' possibile effettuare un 
concatenamento di una versione utente di EMSEQQ (le 
routine di messagi errore) allo scopo di fare qualcosa di 
diverso (come richiamare il debugger runtime oppure 
inizializzare una unita' di controllo). 

Controlla l'overflow dello stack all'ingresso di una 
procedura o funzione, e la memorizzazione nello stack di 
parametri con dimensione maggiore di quattro byte. In 
alcune implementazioni il superamento di capacita' dello 
stack viene sempre controllato. In altre, non viene mai 
controllato in procedure con l'attributo 1NTERRUPT. 

Controlla i valori etichetta quando si accede ad un campo 
con varianti. Soltanto i campi etichettati con 
identificatori (cioè' il cui valore e' memorizzato nel 
record) vengono controllati. 

Invia messaggi di avvertimento al file listing (questo e' 
il valore di default). Se questo switch viene 
disabilitato, vengono segnalati soltanto gli errori 
bloccanti. 
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METACOMANDI 


CONTROLLO DEL FILE SORGENTE 

Un piccolo gruppo di metacomandi fornisce il controllo sull'uso del file 
sorgente durante la compilazione. Questi comandi sono elencati nella 
tabella 19-4 e poi descritti in dettaglio. 


NOME ; DESCRIZIONE 


$1F <costante> Permette una compilazione condizionale del sor- 

$THEN <testo1> gente <testo1> se la <costante> e' maggiore di 

$ELSE <testo2> zero. 

$END 

$1NCLUDE:'<nome-file>' ; Indirizza la compilazione del file sorgente 

. corrente verso il file chiamato. 

$lNCONST:<testo> ■■ Permette l'introduzione interattiva di valori 

costanti durante la fase di compilazione. 

$MESSAGE:'<testo>' ; Permette la visualizzazione di un messaggio su 

, video per indicare quale versione del programma 
e’ in fase di compilazione. 

$P0P ! Ripristina i valori memorizzati dei metacomandi 

$PUSH ; Memorizza i valori correnti di tutti i metaco- 

f mandi. 


Tabella 19-4 Controllo del File Sorgente 

Dato che il compilatore e' sempre posizionato sul simbolo che segue 
quello corrente, esso gestisce i metacomandi che seguono un simbolo, 
prima di trattare il simbolo stesso. Questa caratteristica del 
compilatore e' illustrata nell'esempio: 

CONST Q = 1; 

{$1F Q $THEN} 

{Q e' indefinito nei confronti della $IF.} 

CONST Q = 1; DUMMY = 0; 

{$IF Q $THEN} 

{Ora Q e' definito.} 

X := PA; 

{$N1LCK+} 

{N1LCK e' applicato a PA.} 

X := PA ;;; 

{N1LCK non e 1 applicato a P.} 

{$N1LCK-} 
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$1F <costante> $THEN <testo> $END 


$INCLUDE 


$1NC0NST 
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Permette una compilazione condizionale di un testo 
sorgente. Se il valore della costante e' maggiore di zero, 
viene compilato il testo sorgente che segue la $THEN, 
altrimenti no. E' anche possibile specificare il 
costrutto $1F $THEN $ELSE $END come illustrato nel 
seguente esempio: 


{$1F MSDOS $THEN} 

SECTOR = SI 2 ; 

{$ELSE} 

SECTOR = S128; 

{$END} 

Per simulare un costrutto $1FN0T si deve usare la forma 
seguente del metacomando: 

$1F <costante> $ELSE <testo> $END 

La costante può' essere un numero letterale oppure un 
identificatore costante. 11 testo tra $THEN, $ELSE e $END 
e' arbitrario; esso può' includere commenti, linea a capo, 
altri metacomandi (incluse $1F nidificate), ecc. 1 
metacomandi che appartengono al testo non compilato 
vengono ignorati eccetto, naturalmente, i relativi $ELSE e 
$END. 

Esempi con l'uso di metacondizionali: 

{$1F FPCH1P $THEN} 

CODEGEN (FADDCALL, TI, LEFTP) 

{$END} 

{$1F COMPSYS $ELSE} 

1F USERSYS THEN D01TT01T 
{$END} 

Permette al compilatore di prendere in esame testi che 
appartengono al file cui si fa riferimento. Quando si 
raggiunge la fine del file, il compilatore ritorna a 
compilare il testo che conteneva le $1NCLUDE. La 
compilazione continua con la linea del testo sorgente che 
segue la $1NCLUDE. 11 metacomando $1NCLUDE deve sempre 
essere ultimo sulla riga. 

Permette l'introduzione di valori di costanti (ad esempio 
quelle usate dalle $1F) durante la fase di compilazione, 
invece di inserirli nel file sorgente. Ciò’ e' utile 
quando vengono usati metacondizionali per compilare una 
versione di sorgente per un ambiente particolare, per un 
singolo utente oppure per una data macchina. La 
compilazione può' essere interattiva oppure a lotti. Ad 
esempio, il metacomando $1NC0NST:YEAR produce il seguente 
prompt per la costante YEAR: 
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METACOMANDI 


$MESSAGE 


$PUSH e $POP 


Inconst : YEAR = 

Occorre soltanto dare una risposta di questo tipo: 

Inconst : YEAR = 1983 

La risposta deve essere di tipo WORD. L'effetto e' analogo 
a quello ottenuto dichiarando una costante YEAR con il 
valore 1983. Questo posizionamento interattivo e’ 
equivalente alla dichiarazione: 

CONST YEAR = 1983; 

E' anche possibile rispondere con una stringa letterale 
tra apici, per creare una costante di tipo STRlNG(n). Ad 
esempio, il metacomando $INC0NST:HEADER da' il segnale per 
un'intestazione. Ponendo una stringa tra apici si 
dichiara una costante stringa: 

Inconst : HEADER = 'Processor Version 2.75' 

Permette l'invio di messaggi su video durante la fase di 
compilazione. E' molto utile quando vengono usate 
intensivamente metacondizionali e, ad esempio, quando 
occorre sapere quale versione di programma si sta 
compilando. 

Esempio di metacomando $MESSAGE: 

{$MESSAGE: 'Message on terminal screen!'} 

Permettono la creazione di un meta-ambiente, nel quale si 
possono memorizzare i metavalori mediante $PUSH e 
ripristinarli mediante $P0P. $PUSH e $P0P sono utili in 
file $INCLUDE per salvare e ripristimare metacomandi nel 
file sorgente principale. 
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CONTROLLO DEL FILE LISTINO 


1 metacomandi elencati nella tabella 19-5 e descritti in questa sezione , 

permettono di formattare il file listing. I 

i 

METACOMANDO DESCRIZIONE j 


Stabilisce la lunghezza della riga del file list¬ 
ing. 11 valore di default e' 79 oppure 131, a se¬ 
conda dell 'implementazione. 

Abilita o disabilita il listing del sorgente. Gli j 

errori vengono sempre listati. 

'■ i 

Abilita il listing del codice oggetto deassemblato. 

Salta ad una nuova pagina. 11 numero di linea non 
viene ripristinato. 

Stabilisce il numero di pagina per la pagina suc¬ 
cessiva (non salta ad una nuova pagina). 

Salta ad una nuova pagina se vengono lasciate meno 
di n linee sulla pagina corrente. 

Stabilisce la lunghezza del listing in linee. Il 
valore di default e' 55. 

$SK1P : <n> Salta n linee oppure va a fine pagina. 

$5UBT1TLE :'<testo>‘ Stabilisce il sottotitolo della pagina. 

$SYMTAB+ Riporta la tabella dei simboli nel file listing. 

$T1TLE : ’<testo>' Stabilisce il titolo della pagina. 


Tabella 19-5 Metacomandi di Controllo del File Listing 

$LINESIZE: <n> Stabilisce la massima lunghezza delle linee nel file 
listing. Questo valore e' normalmente 131 o 79, a seconda 
dell'implementazione. 

$LIST+ Abilita il listing del sorgente. Tranne quando e' 

specificato $LIST-, i metacomandi compaiono nel file 
listing. 11 formato del file listing e' illustrato nella 
sezione seguente "Formato del File Listing". 

$0C0DE+ Abilita il listing simbolico del codice generato. Anche 

se il formato varia a seconda del tipo di codice oggetto 
generato, esso assomiglia generalmente ad un listing 




$L1NESIZE : <n> 

$L1ST+ 

$0C0DE+ 

$PAGE+ 

$PAGE : <n> 

$PAGE1F : <n>. 

$PAGES1ZE : <n> 
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METAC0MAND1 


assembler, con indirizzi di codice ed operazioni 
mnemoniche. In molti casi gli identificatori di 
procedure, funzioni e variabili statiche vengono troncati 
nel file listing oggetto.. 

Forza a una nuova pagina nel file listing sorgente. 11 
numero di pagina del file listing viene incrementato 
automaticamente. . 

Stabilisce il numero della pagina seguente nel listing. 
$PAGE: <n> non forza ad una nuova pagina nel file 
listing. 

$PAGE1F: <n> Effettua in modo condizionato una $PAGE+, se il numero 
corrente di linea del file sorgente piu' n e' inferiore o 
uguale alla dimensione della pagina corrente. 

$PAGES1ZE: <n> Stabilisce il numero massimo di linee in una pagina nel 
sorgente. 11 valore di default e' di 55 linee per pagina. 

$SK1P: <n> Salta n linee o va a fine pagina nel file listing 

sorgente. 

$SUBT1TLE:'<sottotitolo> 1 

Stabilisce il nome di un sottotitolo che compare sotto il 
titolo in cima ad ogni pagina del file listing sorgente. 

$5YMTAB+ Quando impostato, emette informazioni sulle variabili 

delle varie procedure e funzioni (vedi ad esempio le 
linee 14 e 17 nel file listing di esempio della seguente 
sezione "Formato del File Listing”). Le colonne di 
sinistra contengono: 

1. lo spiazzamento della variabile dal puntatore frame 
(per variabili di procedure e funzioni) 

2. lo spiazzamento delle variabili nella memoria statica 
(per programmi e variabili 5TAT1C) 

3. la lunghezza della variabile 

11 carattere '+' o iniziale indica uno spiazzamento 
frame. Notare che questo spiazzamento e' relativo 
all'indirizzo piu' basso usato dalla variabile. 

La prima linea del listing $SYMTAB contiene lo 
spiazzamento dell'indirizzo di ritorno, a partire 
dall'inizio del frame (zero per il programma principale), 
e la lunghezza del frame, dal puntatore frame alla fine 
comprese le variabili frontali e temporanee. Le 
variabili temporanee generate dal * codice non vengono 
incluse. Per le funzioni, la seconda linea contiene lo 
spiazzamento, la lunghezza ed il tipo della variabile 
ritornata dalla funzione. Le linee rimanenti contengono 


$PAGE+ 

$PAGE: <n> 
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una lista delle variabili, con il loro tipo ed attributi, 
come illustrato nella tabella 19-6. 


PAROLE CHIAVE 

SIGNIFICATO 

Public 

Ha 

l'attributo PUBLIC 

Extern 

Ha 

l'attributo EXTERN 

Origin 

Ha 

l'attributo ORIGIN 

Static 

Ha 

l’attributo STATIC 

Const 

Ha 

l'attributo READONLY 

Va lue 

E' 

presente in una sezione VALUE 

ValueP 

E' 

un parametro valore 

VarP 

E' 

un parametro VAR o CONST 

VarsP 

E’ 

un parametro VARS o CONSTS 

ProcP 

E' 

un parametro di procedura 

Segmen 

Usa 

1 1 indirizzamento segmentato 

Regist 

Parametro passato in registro 


Tabella 19-6 Notazione della Tabella dei Simboli 
$T1TLE:'<titolo>' 

Stabilisce il titolo che compare in cima ad ogni pagina 
del listing sorgente. 
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METACOMANDI 


FORMATO DEL FILE LISTING 


La seguente descrizione del file listing e’ basata sul seguente esempi 
di listing: 


Use Title PAGE 1 

User Subtitle 12/11/82 


10:49:17 

JG 1C Line# Source Line Pascal Version 3.0 10/82 

00 1 PROGRAM foo; {$symtab+} 

10 2 VAR i:integer; k:ARRAY [-9..0] 0F integer, 

2 -Warning 156,Assumed ;A 

20 3 FUNCTI0N bar (VAR j : integer): integer; 

20 4 VAR k: ARRAY [0..9] OF integer; 

20 5 BEG1N 

+21 6 GOTO 1; {saltare avanti) 

6 -AWarning 281 Label Assumed Declared 

=21 7 i := bar (j); {assegnazione a globale) 

8 1: {etichetta) 

/ 21 9 j := bar (i); (globale a parametro VAR) 

- 21 10 GOTO 1; (salto indietro) 

* 21 11 RETURN; GOTO Ijfaltri salti) 

% 21 12 i := bar (i); (altro riferimento globale) 

21 13 j := bar (j); {nessun riferimento globale) 

10 14 END; 

14 -A306 Function Assignment Not Found 


Symtab 14 Offset Length Variable - BAR 

2 24 Return offset, Fratrie length 

2 2 (func'n return):Integer 

+ 4 2 J : Integer VarP 

- 22 20 K : Array 

10 15 BEGIN 

11 16 i := bar (i); 

00 . 17 END. 


Symtab 17 Offset Length Variable 

0 24 Return offset, Frame length 

2 21 :Integer 

4 20 K :Array 


Errors Warns In Pass One 
1 2 






Ogni pagina ha un'intestazione che contiene informazioni, come titolo e 
sottotitolo impostati rispettivamente mediante $T1TLE e $5UBT1TLE. Se 
questi metacomandi compaiono nelle prime linee del sorgente, hanno 
effetto nella pagina seguente. 11 numero di pagina compare nella parte 
destra della prima linea di intestazione. In alcune versioni compare la 
data e l'ora nella parte destra, rispettivamente nella seconda e terza 
linea. Si può' impostare il numero di pagina mediante $PAGE: <n>, oppure 
iniziare una nuova pagina con $PAGE+. 

La quarta linea del listing contiene le etichette delle colonne. 1 
contenuti delle prime tre colonne sono i seguenti: 


1. Colonna JG 

Questa colonna contiene i caratteri generati per informazione utente. 
Gli indicatori di salto (sotto J) possono contenere uno dei seguenti 
caratteri : 


+ salto in avanti (BREAK o GOTO ad un’etichetta non ancora 
incontrata) 

salto indietro (CYCLE o GOTO ad un'etichetta già' incontrata) 

* altri salti (RETURN oppure salti misti) 

1 codici per le variabili globali (non locali alla procedura o 
funzione) compaiono sotto la colonna G: 

= assegnazione ad una variabile non locale 

/ passaggio di una variabile non locale come parametro 

% una combinazione dei due 

2. Colonna 1C 

La colonna 1C contiene informazioni sui livelli correnti di 
nidificazione. La cifra sotto "1" si riferisce al livello 
dell'identificatore, il quale cambia con le dichiarazioni di 
procedure e funzioni e con le dichiarazioni di record mediante W1TH. 
La cifra nella colonna "C" si riferisce al livello di controllo 
istruzioni; questo numero cambia con la coppia BEG1N e END, come pure 
con CASE e END, REPEAT e UNT1L. Il numero in questa colonna e' utile 
per trovare le parole chiave END che mancano. 

Se una linea non e' usata dal compilatore, allora queste colonne sono 
vuote. 5i può' quindi determinare una porzione del sorgente 
commentata involontariamente oppure ignorata per via della coppia $1F 
$END. 

3. Colonna Line 

La colonna Line riporta il numero di linea. Un file $1NCLUDE riporta 
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la sua propria sequenza di numeri di linea. Se $L1NE e' abilitato, il 
numero di linea ed il nome del file sorgente identificano gli errori 
runtime. 


Due tipi di messaggi del compilatore compaiono nel listing: di errore e 
di avvertimento. Una compilazione con errori non può' generare codice. 
Una compilazione con segnali di avvertimento può' generare codice ma il 
programma può' non funzionare correttamente. 1 segnali di avvertimento 
iniziano con la parola "Warning" ed un numero (vedere ad esempio, la 
linea 2 nel listing sopra riportato). 1 segnali di errore iniziano con un 
numero di errore (vedere linea 14). Nell'Appendice H, "Messaggi di 
Errore", si ha un elenco completo di tutti i messaggi di avvertimento e 
di errore. 1 

Si possono sopprimere i messaggi di avvertimento per mezzo del 
metacomando $WARN-; ciò' pero' non e' consigliato. 11 metacomando $8RAVE+ 
invia i messaggi di avvertimento e di errore al terminale (e al file 
listing). Comunque, se su un singolo schermo ve ne sono troppi, i primi 
vengono fatti uscire. 

L'indirizzo ove e’ stato riconosciuto un errore viene indicato, nel 
listing, con il carattere 'A'. 11 messaggio può' comparire alla destra o 
alla sinistra del carattere 'A' ed e' preceduto da una linea di caratteri 


Talvolta il compilatore non segnala un errore prima del listing della 
linea seguente. In questo caso il numero della linea non e' in sequenza. 
1 caratteri di tabulazione sono ammessi nel sorgente e vengono riportati 
inalterati nel listing. Se lo spazio di tabulazione comprende otto 
colonne, l'indicatore di errore (A) e' generalmente corretto. Comunque, 
un errore verso la fine della linea può' essere posizionato male se la 
linea contiene tabulazioni. 

Se il compilatore incontra un errore per il quale non trova rimedio, 
emette il messaggio "Compiler Cannot Continue!". Questo messaggio compare 
se si verifica una delle seguenti condizioni: 

- La parola chiave PROGRAM (o 1MPLEMENTAT10N, INTERFACE o MODULE) non 
viene trovata oppure l'identificatore di programma, di modulo o 
unita' mancano. 

11 compilatore incontra un "end-of-file" non previsto. 

11 compilatore trova troppi errori; il numero massimo di errori per 
pagina e' impostato da $ERR0RS (il default e' 25). 

11 livello dell'identificatore e' troppo nidificato (per il numero 
massimo di nidificazione si può' vedere l'Appendice A, 
"Caratteristiche di Implementazione", nel manuale "Linguaggio Pascal 
Guida Utente"). 

Quando il compilatore, per qualunque ragione, non e' in grado di 
continuare, scrive semplicemente il resto del programma sul file listing, 
con un controllo limitato sugli errori. 



SWITCH DI LINEA DI COMANDO 


Molti dei metacomandi di debug e gestione errori descritti 
precedentemente nella sezione "Posizionamento e Ottimizzazione del 
Livello del Linguaggio" possono essere anche forniti come switch in fase 
di compilazione. Gli switch possono essere inseriti su linee di comando 
del compilatore oppure come risposta a prompt. La tabella 19-7 riporta i 
metacomandi che sono disponibili anche come switch. Per ulteriori 
informazioni sugli switch si può' consultare il manuale "Linguaggio 
Pascal Guida Utente". 


SWITCH 

METACOMANDO 

j 

DESCRIZIONE i 

i 

i 

/A 

: $INDEXCK 

i 

Controlla che gli indici degli array e dei 
super array siano compresi nel campo di va¬ 
riabilità' . 

/D 

$DEBUG 

Abilita tutti gli switch, compresi $ENTRY e 
$LINE. 

/E 

$ENTR 

( 

Genera chiamata di ingresso e uscita da prò- j 

cedure per il debugger. 

/L 

$L1NE 

Genera chiamata con numero di linea per il 
controllo degli errori. 

/I 

$IN1TCK 

Controlla l'uso dei valori non inizializzati 

/M 

$MATHCK 

Controlla gli errori matematici, come il su¬ 
peramento di capacita' e la divisione per 
zero. 

/N 

$NILCK 

Controlla i valori di puntatore, compreso il 

N1L. 

/Q 

$DEBUG 

Disabilita tutti gli switch, compresi $ENTRY 
e $LINE. 

/R 

$RANGECK 

Controlla la validità' del subrange, compre¬ 
se le assegnazioni. 

/s 

$STACKCK 

Controlla il superamento di capacita’ dello 
stack all'entrata di procedure e funzioni. 

/T 

$TAGCK 

Controlla i campi etichettati in record con 
varianti. 

Tabella 

19-7 Switch di 

Linea di Comando 

19-18 


LINGUAGGIO PASCAL MANUALE GENERALE 






METACOMANDI 



Lo switch /Q, in congiunzione con gli altri, fornisce un mezzo 
per impostare la propria compilazione nel modo voluto. Prima 
occorre disabilitare tutti gli altri switch e poi abilitare 
selettivo solo quelli desiderati. 


efficace 
di tutto 
in modo 
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A. DIAGRAMMI SINTATTICI DEL PASCAL 







DIAGRAMMI SINTATTICI DEL PASCAL; 


DIAGRAMMI SINTATTICI 


I diagrammi delle pagine seguenti illustrano gli elementi fondamentali 
della sintassi del linguaggio Pascal. Sono elencati secondo l'ordine con 
cui vengono verosimilmente usati nello scrivere un programma. La diversa 
forma dei contorni ha il seguente significato: 

Ovali 

Indicano simboli o parole riservate del Pascal, che devono essere 
riportati esattamente come indicato. 

Rettangoli 

Indicano costruzioni di livello superiore che a loro volta contengono 
diagrammi sintattici. 

Cerchi 

Indicano la punteggiatura richiesta la quale deve essere introdotta 
esattemente come indicato. 

Frecce 

Servono per indicare il percorso lungo il diagramma compresi eventuali 
loop (e cioè' ripetizioni di uno o piu' elementi di sintassi). ■ 
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Source File 
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Identifier 



Number 



Uselist ' 














Declarations 
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Heading 


PROCEDURE 














Type 
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Controlled Statement 

























Boolean Expression 



Expression 

I 

' 



Simple 



Term 

i 
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Variable 
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Questa appendice descrive le differenze tra questa implementazione 
Pascal e lo standard ISO, e riassume le caratteristiche del Pascal. 


INDICE 


IL PASCAL E LO STANDARD ISO B-1 

SOMMARIO DELLE PRESTAZIONI DEL B-4 
PASCAL 


CARATTERISTICHE SINTATTICHE E B-4 
PRAGMATICHE 

TIPI E FORME DI DATI B-5 

OPERATORI E FUNZIONI B-6 

INTRINSECHE 

FLUSSO DI CONTROLLO E B-7 

CARATTERISTICHE DI STRUTTURA 

FILE E I/O A LIVELLO ESTESO B-7 

I/O A LIVELLO DI SISTEMA B-8 



: ^v Va 


PRESTAZIONI DEL PASCAL E LO STANDARD ISO 


IL PASCAL E LO STANDARD ISO 

Lo standard ISO definisce un gran numero di condizioni di errore, ma 
dispone di un 1 implementazione particolare per la gestione degli errori 
documentando se l'errore non viene individuato. Qui di seguito sono 
descritti questi "errori non rilevati" ed altre differenze fra il Pascal 
e lo standard ISO. Un programma Pascal che vuole attenersi alle 
prescrizioni dello standard ISO deve includere entrambi i metacommandi 
SSTANDARD e $DEBUG. 

11 Pascal comprende le seguenti estensioni (di minore rilievo) rispetto 
agli attuali standard 1S0/AN51/1EEE: 

il puntò interrogativo (?) in sostituzione della freccia in alto (A) 

il segno di sottolineatura (_) negli identificatori. 

Tenendo conto del modo in cui il compilatore costruisce gli 
identificatori, le nuove parole riservate aggiunte ai livelli Esteso e di 
Sistema non possono essere usate come identificatori al livello Standard. 
La nuova direttiva, EXTERN, oltre a nuove funzioni predichiarate sono 
standard nel Pascal. 

Nelle pagine seguenti sono riassunte le differenze fra il Pascal a 
livello Standard e gli attuali standard 1S0/ANS1/1EEE: 

1. Lo standard 150 richiede un separatore fra numeri e identificatori o 
parole chiave. 

In taluni casi, il Pascal non richiede un separatore fra numero e 
identificatore o parola chiave; ad esempio "lOOmod" e' accettato come 
"100 mod" senza generare errore. 

2. Lo standard 150 non consente di passare un componente di una 
struttura PACKED come parametro di riferimento. 

Il Pascal invece consente specificatamente di passare un elemento 
CHAR di un PACKED ARRAY [1...n] OE CHAR come parametro di 
riferimento. Passare un'etichetta di campo come riferimento e' un 
errore non rilevato. Passare altri componenti impaccati, invece, 
genera normalmente un errore. 

3. Lo standard ISO non include il carattere di marca di linea di file- 
testo nell'insieme dei valori CHAR. 

11 Pascal consente di utilizzare tutti i 256 valori a 8-bit come 
valori CHAR; con alcuni sistemi operativi un particolare carattere 
(ad esempio il ritorno carrello) funge anche da carattere di marca di 
linea. 

4. Lo standard ISO richiede che venga assegnata una variante per tutti i 
possibili valori delle etichette. 

11 Pascal consente di non specificare tutti i valori di etichetta in 
una dichiarazione di record variante. 








I 

I 

I 

5. Lo standard 150 richiede che un identificatore abbia un solo 

significato in ciascun campo di validità'. ; ! 

i 

i 

In Pascal, se nello stesso campo di validità' si usa un 
identificatore e poi lo si ridefinisce, l'errore non viene rilevato. 

Nell'esempio seguente 

CONST X = Y; VAR Y : CHAR; 

si hanno due significati per Y nello stesso campo di validità'. 

Generalmente il Pascal utilizza l'ultima definizione di un 

identificatore. Vi e' un caso ambiguo: quando si dichiara il tipo 
F00 in un campo di validità' e in un campo di validità' piu 1 interno 
TYPE P = A FOO; F00 = TYPE. In questo caso l'intendimento del 

programmatore e' espresso in modo ambiguo. 11 compilatore usa 

l'ultima definizione di FOO ed emette un segnale di avvertimento. 

6. Lo standard ISO richiede che nelle procedure URITE e WR1TELN 

l'ampiezza del campo "M" sia un numero positivo. 

11 Pascal tratta M < 0 come se fosse M = ABS(M), ma l'espansione del 
campo avviene da destra anziché' da sinistra. M può' anche essere 
zero quando non si vuole scrivere nulla. 1 parametri di file-testo 
READ(LN) e WRITE(LN) accettano sia il parametro M che N, ignorando 
quello non necessario. E' anche consentita la forma "V::N". Quando 
si scrive un 1NTEGER, il parametro N definisce la radice di output; 
in fase di lettura o scrittura di un tipo enumerato, il parametro N 
definisce il numero ordinale o ha l'opzione di identificatore 
costante. 

7. Lo standard ISO non consente che una variabile creata con la forma 
lunga di NEW venga assegnata, usata in un'espressione o passata come 
parametro. Tuttavia questo controllo e' difficile in fase di 
compilazione e costoso in fase di esecuzione. 

11 Pascal consente l’assegnazione di queste variabili utilizzando la 
lunghezza effettiva della variabile oggetto. L'errore dello standard 
ISO non e' rilevato. 

8. Lo standard 150 non consente di utilizzare la forma contratta di 
DISPOSE in una struttura allocata con la form? lunga di NEW. Lo 
standard 150 ammette soltanto che una variabile allocata con la forma 
lunga di NEW sia rilasciata con la forma lunga di DISPOSE; tutti i 
campi etichettati non devono essere mai modificati fra le due 
chiamate. 

11 Pascal consente di utilizzare le forma contratta di DISPOSE in una 
struttura allocata con la forma lunga di NEW e non esegue controlli 
su eventuali cambiamenti dei valori etichetta. 

9. Lo standard 150 afferma che come conseguenza di un "cambiamento di 
variante" (ad esempio quando e' assegnato un nuovo valore di 
etichetta), tutti gli altri campi di variante risultano indefiniti. 

Pascal non definisce i campi non iniziali zzati all'atto 
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dell'assegnazione di una nuova etichetta, e cosi' non fa uso di un 
campo variante contenente un valore non definito. 

10. Lo standard ISO non consente che una variabile con un riferimento 
attivo (cioè i record di un'istruzione W1TH esecutiva o un effettivo 
parametro di riferimento) sia eliminata (se e' una variabile heap) o 
cambiata con una GET oppure con una PUT (se e' una variabile del 
buffer di un file). 

Pascal non rileva questi errori. 

11. Lo standard ISO normalmente definice 1 MOD J come un errore se J < 0, 
ed il risultato di MOD e' sempre positivo anche quando 1 e' negativo. 

11 Pascal, per l'operatore MOD, non usa la semantica della nuova 
bozza dello standard. Pertanto i programmi scritti in vista della 
portabilità' non devono usare MOD se non quando ambedue gli operandi 
sono positivi. 

12. Lo standard ISO non definisce gli array ’conformant'. 

11 Pascal non implementa il concetto di conformant array. 1 super 
array forniscono fondamentalmente le stesse funzionalità’, ma in modo 
molto piu' flessibile. 11 tipo super array del Pascal fornisce 
parametri di conformant array, come array di lunghezza dinamica 
allocati nello heap. 1 programmi scritti correttamente secondo lo 

standard ISO sono eseguiti correttamente, senza alcun cambiamento, 

sotto Pascal. 

13. Lo standard ISO richiede che la variabile di controllo di un ciclo 
FOR sia locale nell'ambito del blocco contiguo. Ogni assegnazione a 
questa variabile di controllo genera un errore. 

11 Pascal consente di usare variabili non locali, ma devono essere 
STAT1C; in tal modo la variabile di controllo di un ciclo FOR può' 
essere sia locale che a livello PROGRAM. Inoltre il Pascal non 

considera un errore un'assegnazione alla variabile di controllo, se 
l'assegnazione avviene in una procedura o funzione richiamate 

all'interno dell'istruzione FOR. 

14. Lo standard ISO richiede che l'argomento CHR sia INTEGER. 

11 Pascal accetta per CHR ogni tipo ordinale. 




SOMMARIO DELLE PRESTAZIONI DEL PASCAL 


Qui di seguito sono riassunte le estensioni del Pascal rispetto allo 
standard ISO. A meno di indicazione contraria, sono da intendersi tutte 
a livello Esteso. 


CARATTERISTICHE SINTATTICHE E PRAGMATICHE 


1. Il metalinguaggio (livello Standard) 


$BRAVE 

$PAGEIF 

$DEBUG 

$PAGES1ZE 

$ENTRY 

$P0P 

$ERR0RS 

$PUSH 

SEXTENO 

$RANGECK 

$G0T0 

$REAL 

$INCLUDE 

$R0M 

$1NC0NST 

$RUNT1ME 

S1NDEXCK 

$SIMPLE 

$1NT1CK 

$S1ZE 

$1F $THEN $ELSE $END 

$SK1P 

$1NTEGER 

$SPEED 

$L1NE 

$STACKCK 

$L1NES1ZE 

$STANDAR0 

$L1ST 

$SUBT1TLE 

$MATHCK 

$SYNTAB 

$MESSAGE 

$SYSTEM 

$N1LCK 

$TAGCK 

$OCODE 

$T1TLE 

$0PTBUG 

$UARM 

$PAGE 



2. Listing aggiuntivo (livello Standard) 

a) segnalazioni di salti, globali, livello identificatori, livello 
controllo, intestazione, terminatori 

b) errori testuali e messaggi di avvertimento 

3. Aggiunte sintattiche 

a) ! come commento a fine linea 

b) parentesi quadre equivalenti a BEG1N/END 

4. Notazione non decimale dei numeri 

a) costanti numeriche con # oppure nn# (dove nn = 2 .. 36) 

b) DECODE/READ assume la notazione # 

c) ENCODE/WR1TE con N di 2, 8, 10, 16 
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5. CASE con campo di variabilità' esteso 

a) per le istruzioni CASE e record con varianti 

b) OTHERWISE per tutti gli altri valori del campo di variabilità' 

c) A..B per il campo di variabilitàdei valori 

TIPI E FORME DI DATI 

Tipo WORD, funzione WRD, costante MAXWORD 
Tipi REAL4 e REAL8 
Tipo INTEGER4, costante MAXINT4 
Funzioni FL0AT4, R0UND4 e TRUNC4 
Tipi indirizzo (livello Sistema) 
tipi ed operatori ADR e ADS 
parametri VARS e CONSTS 
Tipi SUPER array 
. parametri conformant 

variabili di heap a lunghezza dinamica 
. super array multidimensionali 
tipi super STRING e LSTR1NG 
Tipo LSTR1NG, costante NULL, campo .LEN 

Spiazzamenti espliciti di byte nei record (livello Sistema) 
Parametri di riferimento CONST e CONSTS per costanti ed espressioni 
Costanti strutturate (array, record e set) 

Funzioni estese che ritornano ogni tipo assegnabile 
Selezione variabile sui valori ritornati dalle funzioni 
Attributi 

EXTERN PORT 

EXTERNAL PUBLIC 

FORTRAN PURE 

1NTERRUPT READONLY 

ORIGIN STAT1C 




OPERATORI E FUNZIONI INTRINSECHE 


Operatori di livello Esteso: 

. operatori di shift: SHL SHR 1SR 

. operatori logici a livello di bit: AND OR NOT XOR 
. operatori di insieme: < > 

Espressioni costanti: 

. concatenazione di stringhe costanti tramite l'operatore * 

espressioni numeriche, ordinali, booleane in clausole di tipo 
Altre funzioni costanti: 


CHR 

UPPER 

D1V 

WRD 

H1BYTE 

ir 

H1W0RD 

+ 

LOBYTE 

- 

LOWER 

< 

LOWORD 

< = 

MOD 

< > 

ORD 

= 

RETYPE 

> 

S1ZE0F 

> = 


Funzioni intrinseche addizionali a livello Esteso: 


ABORT 

LOWORD 

BYLONG 

RESULT 

BYWORD 

S1ZE0F 

DECODE 

UPPER 

ENCODE 

H1W0RD 

EVAL 

LOBYTE 

H1BYTE 

LOWER 


Funzioni intrinseche addizionali a livello di Sistema: 

F1LLC MOVESL 

FILLSC MOVESR 

MOVEL RETYPE 

MOVER 

Funzioni intrinseche che agiscono su stringhe: 

per STR1NG o LSTRING: COPYSTR POSITN SCANEQ SCANNE 
solo per LSTRING: CONCAT 1NSERT DELETE COPYLST 
Funzioni di libreria dell’MS-FORTRAN REAL (livello Standard) 
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PRESTAZIONI DEL PASCAL E LO STANDARD 1SO 


Funzioni di 

libreria del Pascal (livello Standard): 

ALLHQQ 

MARKAS 

BEGOQQ 

MEMAVL ! 

BEGXQQ 

PLYUQQ 

DATE 

PTYUQQ 

D1SB1N 

RELEAS . j 

ENDOQQ 

'SADDOK I 

ENDXQQ 

SMULOK ! 

ENAB1N 

T1CS ! 

FREECT 

TIME 

GTYUQQ 

UADDOK 

LADDOK 

UMULOK 

LMULOK 

UNLOCK 

LOCKED 

VECT1N 

- 

FLUSSO DI CONTROLLO 

E CARATTERISTICHE DI STRUTTURA 


Istruzioni di flusso di controllo: BREAK, CYCLE e RETURN 


Operatori di controllo sequenziale: AND THEN e OR ELSE in 1F, WHILE, 
REPEAT 

Loop esteso FOR: variabile FOR VAR 
Sezione VALUE per inizializzare variabili statiche 
Sezioni in ordine misto LABEL, CONST, TYPE, VAR, VALUE 
Moduli compilabili con attributi globali 
- UN1T, INTERFACE e 1MPLEMENTAT10N: 

. numeri di versione di interfaccia, controllo della versione 
. ridenominazione opzionale dei costituenti 

garanzia dell'unicità 1 dell'unita' durante 1’inizializzazione 
. inizializzazione di unita' opzionale 


FILE E 1/0 A LIVELLO ESTESO 

Dichiarazione di lunghezza di linea di file-testo, TEXT (nnn) 

READ enumerato, booleano, puntatore, STR1NG, LSTR1NG 
WR1TE enumerato, puntatore, LSTRING 

Valore negativo di M per giustificare a sinistra anziché’ a destra 
File temporanei 
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File con modo di accesso DIRECT, procedura SEEK 
- Procedure ASS1GN, CLOSE, D1SCARD, READSET, READFN 
Costanti e tipi F1LEMODES, modo di accesso F.MODE 
Trappole di errore, modo di accesso F.TRAP e F.ERRS 
1/0 enumerato con uso di identificatore come stringa 

I/O A LIVELLO DI SISTEMA 

L'estensione del Pascal rispetto allo standard ISO mette a disposizione 
il tipo FCBFQQ, del tutto equivalente ai tipi FILE. 
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C. QUESTO E ALTRI PASCAL 



SOMMARIO 


Questa appendice descrive le differenze di implementazione tra questo 
Pascal e altri linguaggi Pascal. Essa descrive anche le differenze tra 
questo Pascal e il Pascal UCSD. 


INDICE 

INTRODUZIONE C-1 

IMPLEMENTAZIONI DEL PASCAL C-1 

C-3 


IL PASCAL E IL PASCAL UCSD 



QUESTO ED ALTRI PASCAL ^ 



INTRODUZIONE 

Al livello Standard il Pascal e 1 conforme all'attuale bozza dello 
standard ISO. Perciò', in teoria, i programmi scritti in conformità' 
allo standard ISO sono portabili e possono essere compilati da un 
qualsiasi compilatore Pascal. 

In pratica, pero', la maggior parte dei programmi Pascal e' scritta con 
alcune prestazioni non standard. In questi casi e' necessario modificare 
/il file sorgente per adattarlo alle convenzioni usate in Pascal. 


IMPLEMENTAZIONI DEL PASCAL 

Le aree in cui si manifestano le differenze tra le varie implementazioni 
del Pascal possono essere raggruppate nelle seguenti categorie: 

1/0 interattivo 

Il Pascal implementa la valutazione "lazy" per trattare l'I/O 

interattivo in modo naturale. Altri Pascal possono implementare 
questa prestazione in modi diversi. Per esempio alcuni sistemi 
richiedono un READLN iniziale. 

Trattamento delle stringhe 

Il Pascal ammette il tipo super array LSTR1NG per trattare 

efficientemente le stringhe di lunghezza variabile. Per il 
trattamento delle stringhe lo standard ISO fornisce, invece, le 
procedure PACK e UNPACK; altri Pascal presentano spesso alcuni 
ampliamenti alle capacita' di trattamento delle stringhe prescritte 
dallo standard. 

Controlli del compilatore 

I controlli di compilazione implementati in forma di switch di linea 

di comando oppure come comandi nell'ambito di commenti del sorgente, 

possono variare da Pascal a Pascal. Per garantire la portabilità' 
occorre eliminare tutti i controlli inclusi nei commenti. 

Dimensione massima del set 

La dimensione massima del set varia da Pascal a Pascal. Alcuni 
Pascal limitano la dimensione del set a 16 o 64 elementi. Nel Pascal 
i set possono contenere fino a 256 elementi. Ciò' consente di 
supportare il SET OF CHAR. 

Compatibilita’ dei tipi 

La rigidità' delle regole sulla compatibilita' fra tipi e' variabile. 
In alcuni Pascal, tipi strutturalmente equivalenti con nomi 


e-i 




non lo 


differenti sono compatibili; in altri (e nello standard 150) 
sono. 

Istruzioni GOTO fuori dei blocchi 

Alcuni Pascal non permettono istruzioni GOTO al di fuori dei blocchi, 
queste invece sono permesse nel Pascal. 

Gestione dello heap 

Anziché' usare le procedure NEW e DISPOSE per il trattamento della 
allocazione dinamica della memoria, alcuni Pascal usano le procedure 
MARK e RELEASE. 11 Pascal ammette ambedue i metodi (MARKAS e RELEA5 
sono i due nomi usati nel Pascal per MARK e RELEASE). 

0THERW1SE nelle istruzioni CASE e nei record con varianti 

Se in un'istruzione CASE viene omessa la parola 0THERW1SE, il 
controllo non viene passato alla successiva istruzione eseguibile, 
come avviene in qualche altro Pascal esteso. Inoltre alcuni altri 
Pascal usano le parole ELSE o 0THER5 invece di 0THERW1SE. 

Assegnazione di nomi ai file 

La procedura ASS1GN in PASCAL assegna ad un file un nome a livello di 
sistema operativo. Alcuni altri Pascal usano un secondo parametro di 
RESET e REWR1TE per un nome di file. 

Compilazioni separate 

La maggior parte dei Pascal non accetta la direttiva EXTERN (o 
EXTERNAL) per procedure e funzioni. 1 concetti di MODULE e/o 
INTERFACE e 1MPLEMENTAT10N sono supportati in molti Pascal, anche se 
la sintassi può' variare. Alcuni Pascal non supportano variabili 
PUBLIC e EXTERN ma possono usare un approccio FORTRAN COMMON. In 
quest’ultimo caso, per garantire la portabilità' si devono assegnare 
tutte le variabili globali in una sezione VAR del Pascal, usando 
[PUBLIC] nel PROGRAM e [EXTERN] nel MODULE, e includere in ciascuna 
($1NCLUDE) la stessa dichiarazione di variabile. 

Parametri di programma 

Alcuni Pascal ignorano parametri di programma. In alcuni Pascal 
tutti i file devono essere parametri di programma. 

Parametri procedurali 

Parecchi Pascal non consentono di passare procedure e funzioni come 
parametri. Molti non permettono di passare alcuna procedura o 
funzione predichiarata. 
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IL PASCAL E IL PASCAL UCSD 

Dato che il Pascal UCSD e' uno dei piu' diffusi Pascal nel campo dei 
microcomputer, la necessita' di conversione di UCSD in Pascal, e 
viceversa, si presenta con notevole frequenza. Perciò’ in questa sezione 
vengono esaminate le differenze e le somiglianze fra i due Pascal. 

11 Pascal incorpora, in una forma o nell'altra, molte delle estensioni 
dell'UCSD. Nella tabella C-1 le estensioni UCSD sono confrontate con 
quelle disponibili nel Pascal. 


ESTENSIONI UCSD 

EQUIVALENTI DEL PASCAL 

1 

ATAN 

ARCTAN 

i 

BLOCKREAD 

GETUQQ 


BLCOKWRITE 

PUTUQQ 


CLOSE 

CLOSE 


CLOSE (F, LOCK) 

CLOSE (F) 


CLOSE (F, PURGE) 

DI5CARD (F) 


CONCAT 

CONCAT 

1 

1 

COPY 

COPYLST o MOVEL 


DELETE 

DELETE 


EXIT 

RETURN o GOTO 


F1LLCHAR 

F1LLC e FILLSC 


HALT 

ENDXQQ 


INSERT 

INSERT 

1 

IORESULT, $1 

campi ERRS e TRAP 

| 

LENGTH 

.LEN e STR [0] 

1 

LOG 

LNDRQQ 


MARK 

MARKAS 


MEMAVAIL 

MEMAVL 


MOVELEFT 

MOVEL e MOVESL 


MOVERIGHT 

MOVER e MOVESR 


POS 

P0S1TN 

i 

RELEASE 

RELEAS 

! 

SCAN 

SCANEQ e SCANNE 


SEEK 

SEEK 


S1ZE0F 

SIZEOF 


STR 

ENCODE 


STR1NG [n] 

LSTR1NG <n) 


UN1T 

UN1T 


File senza tipo 

tipo FCBFQQ 


Tabella C-1 Pascal e Pascal UCSD 


Nelle note successive vengono fatti dei confronti fra punti 
particolare interesse: 

di 

11 tipo STR1NG [n] dell'UCSD e' logicamente simile al tipo LSTR1NG 

(n) del Pascal. Ambedue 

infatti, contengono la lunghezza di 

una 


stringa a lunghezza variabile nell'elemento zero di un ARRAY OF CHAR. 
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11 Pascal UCSD utilizza MARK e RELEASE per allocare le variabili 
puntatore nell'area heap. Gli altri Pascal di solito usano NEW e 
DISPOSE. Questo Pascal accetta ambedue i metodi di allocazione 
dinamica della memoria. 

Le unita 1 Pascal sono simili alle unita* UCSD, con le seguenti 
eccezioni: nel Pascal un INTERFACE deve apparire per primo in ogni 
unita* compilativa che lo utilizza; poiché* il Pascal UCSD ha un suo 
particolare file System, si può* utilizzare il nome del'unita' per 
trovare il nome del file di interfaccia nel modo standard. 

Il Pascal richiede una lista di tutti gli identificatori trasferiti 
dall'unita' nella clausola UN1T, e la considera opzionale in una 
clausola USES. In una clausola USES, per evitare conflitti, possono 
essere dati identificatori diversi. 

Infine, il Pascal fornisce il codice di inizializzazione dell'unita' 
ed il controllo della versione di interfaccia. Nessuna di queste due 
prestazioni e' presente nel Pascal UCSD. 

CONCAT e' una funzione del Pascal UCSD; nel Pascal e' una procedura. 

Nel Pascal UCSD, se viene eseguita un’istruzione CASE che non 
seleziona nessuna istruzione, si passa all'istruzione successiva. 
Nel Pascal per ottenere questo effetto bisogna includere una clausole 
0THERW1SE vuota. 

11 Pascal UCSD permette di usare le funzioni EOF(F) e EOLN(F) anche 
su un file chiuso; nel Pascal invece questo genera un errore. 

11 Pascal UCSD consente il confronto fra record e array con il segno 
di uguale (=) e di diverso (< >). Nel Pascal occorre trascrivere 
(RETYPE) record e array in tipi STR1NG di lunghezza uguale, e quindi 
confrontarli come stringhe. 
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D. CODICI 


DEI CARATTERI ASCII 








CODICI DEI CARATTERI ASCII 


CODICI DEI CARATTERI ASCII 


DEC 

j ESA 

i CAR 

. 1 

DEC 

1 

ESA 

CAR 

OOO 

i 

i OOH 

i 

; NUL 

1 032 

p 

i 20H 

\ SPACE 

001 

; oi h 

1 SOH 

1 033 

: 21H 

t 

002 

: 02H 

Ì STX 

. 034 

i 22H 

Il 

003 

: 03H 

{ ETX 

035 

; 23H 

: # 

004 

: 04H 

! EOT 

1 036 

•: 24 H 

$ 

005 

: 05 H 

! ENQ 

: 037 

! 25H 

% 

006 

; 06H 

! ACK 

! 038 

: 26H 

& 

007 

ì 07H 

I BEL 

l 039 

: 27H 

• 

008 

i OBH 

! B5 

! 040 

! 28H 

: ( 

009 

09H 

! HT 

! 041 

! 29H 

! ) 

010 

' OAH 

ì LF 

i 042 

; 2AH 

A 

Oli 

; OBH 

! VT 

! 043 

‘ 2BH 

+ 

012 

OCH 

1 FF 

: 044 

! 2CH 

f 

013 

: ODH 

■: CR 

: 045 

2DH 

~ 

014 

OEH 

: so 

: 046 

2EH 


015 

OFH 

: si 

047 

2FH 

/ 

016 

10H 

DLE 

; 048 

■ 30H 

• 0 

017 

; 11H 

: DC1 

: 049 

; 31H 

; i 

01B 

12H 

ì DC2 

1 050 

32H 

2 

019 

13H 

> DC3 

051 

' 33H 

3 

020 

14H 

f DC4 

: 052 

34H 

4 

021 

15H 

NAK 

053 

35H 

5 

022 

: 16H 

5 SYN 

= 054 

36H 

6 

023 

17H 

: ETB 

055 

37H 

7 

024 

: 18H 

: CAN 

! 056 

38H 

8 

025 

; 19H 

: EM 

057 

39H 

. 9 

026 

: 1 AH 

; SUB 

058 

3AH 

i 

027 

1BH 

ESCAPE 

059 

3BH 

i 

028 

1CH 

FS 

060 

3CH 

< 

029 

1DH 

; GS 

061 

3DH 

= 

030 

1 EH 

RS 

062 

3EH 

> 

031 

1FH 

US 

063 

3FH 

? 





DEC 

ESA 

."T 

CAR 

DEC 

ESA 

CAR 

' 

064 

40 H 

| 

@ j 

096 

60H 

’ 

065 

41 H 

A 

097 

61 H 

a 

066 

42H 

B 

098 

62H 

b 

067 

43 H 

c 

099 

63H 

c 

068 

44H 

D 

100 

64 H 

d 

069 

45H 

E ! 

101 

65H 

e 

070 

46 H 

F i 

102 

66H 

f 

071 

47 H 

G j 

103 

67H 

g 

072 

48 H 

H 

104 

68H 

h 

073 

49 H 

I 1 

105 

69H 

i 

074 

4AH 

J i 

106 

6AH 

j 

075 

4BH 

K ì 

107 

6BH 

k 

076 

4CH 

L 1 

108 

6CH 

1 

077 

4DH 

M j 

109 

6DH 

m 

078 

4EH 

N ! 

110 

6EH 

n 

079 

4FH 

0 ! 

111 

6FH 

o 

080 

50H 

P i 

112 

70H 

P 

081 

51 H 

Q 

113 

71H 

q 

082 

52H 

R 

114 

72 H 

r 

083 

53H 

S ! 

115 

73 H 

s 

084 

54 H 

t ; 

116 

74 H 

t 

085 

55H 

u 1 

117 

75 H 

u 

086 

56H 

v i 

118 

76H 

V 

087 

57 H 

w 

119 

77 H 

w 

088 

58H 

X ì 

120 

78H 

X 

089 

59H 

Y : 

121 

79H 

y 

090 

5AH 

Z 1 

122 

7AH 

z 

091 

58H 

[ ' ; 

123 

7BH 

{ 

092 

5CH 

\ i 

124 

7CH 

1 

093 

5DH 

] ! 

125 

7DH 

} 

094 

5EH 

A i 

126 

7EH 


095 

5FH 


127 

7FH 

DEL 




DEC = decimale, ESA = esadecimale (H), CAR = carattere, LF = salto riga, 
FF = salto pagina, CR = ritorno a capo, DEL = cancella carattere. 
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ELENCO DELLE PAROLE RISERVATE DEL PASCAL 


Parole riservate a livello standard: 


AND 

ARRAY 

BEG1N 

CASE 

CONST 

DIV 

DO 

DOWNTO 

ELSE 

END 

FILE 

FOR 

FUNCT10N 

GOTO 

1F 

IN 

LABEL 

MOD 


N1L 

NOT 

OF 

OR 

PACKED 

PROCEDURE 

PROGRAM 

RECORD 

REPEAT 

SET 

THEN 

TO 

TYPE 

UNT1L 

VAR 

WH1LE 

LJ1TH 


Parole riservate addizionali a 


livello esteso: 


BREAK 

RETURN 

CONSTS 

SHL 

CYCLE 

SHR 

1MPLEMENTATI0N 

UN1T 

INTERFACE 

USES 

1SR 

VALUE 

MODULE 

VARS 

OTHERW1SE 

XOR 


Parole riservate addizionali a livello sistema: 


Nomi 


Nomi 


ADR 


ADS 


di attributi: 


EXTERN 

PORT 

EXTERNAL 

PUBLIC 

FORTRAN 

PURE 

INTERRUPT 

READONLY 

OR1G1N 

STAT1C 

di direttive: 



EXTERN 

EXTERNAL 

FORWARD 





Logicamente le direttive sono parole riservate. Poiché 1 nel Pascal ISO 
sono consentite direttive addizionali, esse sono tutte comprese nel 
livello standard. EXTERN e' sia un attributo che una direttiva. 
EXTERNAL e' sinonimo di EXTERN in ambedue i casi. Questo consente la 
compatibilita' con un notevole numero di altri Pascal. 
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F. RIEPILOGO DELLE PROCEDURE 
E FUNZIONI DISPONIBILI 



SOMMARIO 


Questa appendice fornisce un elenco approssimativo di tutte le procedure 
e funzioni disponibili, insieme al nome del gruppo nel quale esse sono 
presentate nella sezione "Categorie delle Procedure e Funzioni 
Disponibili" in Capitolo 6. 
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RIEPILOGO DELLE PROCEDURE E FUNZIONI DISPONIBILI 


RIEPILOGO DELLE PROCEDURE E FUNZIONI DISPONIBILI 


NOME 

DESCRIZIONE 

CATEGORIA 

ABORT 

Pone termine al programma 

Livello Esteso 

ABS 

Funzione valore assoluto 

Aritmetica 

ACDRQQ 

Funzione arco coseno REAL8 

Aritmetica 

ACSRQQ 

Funzione arco coseno REAL4 

Aritmetica 

AIDRQQ 

Funzione troncamento REAL8 

Aritmetica 

AISRQQ 

Funzione troncamento REAL4 

Aritmetica 

ALLHQQ 

Alloca un elemento nello heap 

Libreria 

ANDRQQ 

Arrotondamento a zero REAL8 

Aritmetica 

ANSRQQ 

Arrotondamento a zero REAL4 

Aritmetica 

ARCTAN 

Funzione arcotangente 

Aritmetica 

A5DRQQ 

Funzione arcoseno REAL8 

Aritmetica 

ASSRQQ 

Funzione arcoseno REAL4 

Aritmetica 

ASS1GN 

Assegna nome file 

File System 

ATDRQQ 

Arcotangente (A/B) REAL8 

Aritmetica 

ATSRQQ 

Arcotangente (A/B) REAL4 

Aritmetica 

A2DRQQ 

Funzione arcotangente REAL8 

Aritmetica* 

A2SRQQ 

Funzione arcotangente REAL4 

Aritmetica 

BEGOQQ 

Inizializza l'utente 

Libreria 

BEGXQQ 

Inizializzazione generale 

Libreria 

BYLONG 

WORD o INTEGER in INTEGER4 

Livello Esteso 

BYWORD 

Dispone i byte in word 

Livello Esteso 

CHDRQQ 

Coseno iperbolico REAL8 

Aritmetica 

CHR 

Assume il carattere ASCII del valore 

Conversione dati 

CHSRQQ 

Coseno iperbolico REAL4 

Aritmetica 

CLOSE 

Chiude il file 

File System 

CNDRQQ 

Funzione coseno REAL8 

Aritmetica 

CNSRQQ 

Funzione coseno REAL4 

Aritmetica 

CONCAI 

Concatena L5TRING 

Stringa 

COPYLST 

Copia su L5TR1NG 

5tringa 

COPYSTR 

Copia su STRING 

Stringa 

COS 

Funzione coseno 

Aritmetica 

DATE 

Funzione data 

Libreria 

DECODE 

Decodifica LSTR1NG in variabile 

Livello Esteso 

DELETE 

Rimuove porzioni di LSTR1NG 

Stringa 

DISB1N 

Disabilita le interruzioni 

Libreria 

DISCARD 

Chiude e cancella un file 

File System 

DISPOSE 

Elimina un elemento nello heap 

Allocazione dinamica 

ENAB1N 

Abilita le interruzioni 

Libreria 

ENCODE 

Codifica un espressione in LSTR1NG 

Livello Esteso 

ENDOQQ 

Terminazione di utente 

Libreria 

ENDXQQ 

Terminazione di programma 

Libreria 

EOF 

End-Of-File booleano 

File System 

Tabella F-1 

Procedure e Funzioni 
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i 

NOME 

1 

EOLN ì 

DESCRIZIONE | 

i 

CATEGORIA 


1 

End-Of-Line booleano 

File System 


E VAL 

Valuta le funzioni 

Livello Esteso 


EXDRQQ 

Funzione esponenziale REAL8 

Aritmetica 


EXP 

Funzione esponenziale 

Aritmetica 


EXSRQQ 

Funzione esponenziale REAL4 

Aritmetica 

i 

F1LLC 

Riempie l'area con C, relativa 

Livello Sistema 

; 

F1LLSC 

Riempie l'area con C, segmentata ] 

Livello Sistema 

j 

FLOAT 

Converte 1NTEGER in REAL : 

Conversione dati 

| 

FL0AT4 

Converte 1NTEGER4 in REAL 

Conversione dati 


FREECT 

Da' il calcolo dei blocchi liberi 

Libreria 


GET 

GET il prossimo componente del file 

File System 


GTYUQQ 

Input terminale diretto 

Libreria 


H1BYTE 

Ottiene un high BYTE 

Livello Esteso 


H1WORD 

Ottiene un high WORD 

Livello Esteso 


1NSERT 

Inserisce una stringa 

Stringa. 


LADDOK 

Controllo addizione 32-bit con segno 

Libreria 


LDDRQQ 

Funzione logaritmo in base 10 REAL8 

Aritmetica 


LDSRQQ 

Funzione logaritmo in base 10 REAL4 

Aritmetica 


LMULOK 

Controllo moltiplicazione 32-bit 
con segno 

Aritmetica 


LN 

Funzione logaritmo naturale 

Aritmetica 


LNDRQQ 

Logaritmo naturale REAL8 

Aritmetica 


LNSRQQ 

Logaritmo naturale REAL4 

Aritmetica 


LOBYTE 

Ottiene low BYTE 

Livello Esteso 


LOCKED 

Stato di risorse "locked” 

Libreria 


LOWER 

Ottiene il limite inferiore 

Livello Esteso 


LOWORD 

Ottiene low WORD 

Livello Esteso 


MARKAS 

Marca i limiti dello heap 

Libreria 


MDDRQQ 

Funzione modulo REAL8 

Aritmetica 


MDSRQQ 

Funzione modulo REAL4 

Aritmetica 


MEMAVL 

Memoria disponibile 

! Libreria 


MNDRQQ 

Funzione minimo REAL8 

i Aritmetica 


MNSRQQ 

Funzione minimo REAL4 

ì Aritmetica 

; 

MOVEL 

Sposta byte a sinistra, relativo 

! Livello Sistema 


MOVER 

Sposta byte a destra, relativo 

j Livello Sistema 


MOVESL 

Sposte byte a sinistra, segmentato 

i Livello Sistema 


M0VE5R 

Sposta byte a destra, segmentato 

Livello Sistema 


MXDRQQ 

Funzione massimo REAL8 

S Aritmetica 


MXSRQQ 

Funzione massimo REAL4 

ì Aritmetica 


NEW 

Alloca nuovi elementi nello heap 

Allocazione dinamica 


ODD 

; Funzione Odd booleano 

Conversione dati 


ORD 

Ottiene valore ordinale 

Conversione dati 


PACK 

Array CHAR Packed 

i Conversione dati 


PAGE 

Scrive una nuova pagina 

File System 


P1DRQQ 

; REAL8 elevato a potenza di 1NTEGER 

Aritmetica 


Tabella F 
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RIEPILOGO DELIE. PROCEDURE E FUNZIONI DISPONIBILI 




NOME 

I DESCRIZIONE 

i ... .... 

CATEGORIA 

PISRQQ 

REAL4 elevato a potenza di 1NTEGER 

I Aritmetica 

PLYUQQ 

End line terminale diretto 

Libreria 

P0S1TN 

! Cerca la posizione di una 
i sottostringa 

i Stringa 

| 

PRDRQQ 

REAL8 elevato a potenza REAL8 

Aritmetica 

PRED 

Funzione predecessore 

; Conversione dati 

PRSRQQ 

REAL4 elevato a potenza REAL4 

; Aritmetica 

PTYUQQ 

Output di terminale diretto 

Libreria 

PUT 

j Mette un valore nel file 

File System 

READ 

| Legge un file 

File System 

READFN 

Legge un nome di un file 

File system 

READLN 

Legge il file alla fina della riga 

File system 

READSET 

! Legge il set 

File system 

RELEAS 

i Rilascia lo spazio nello heap 

Libreria 

RESET 

! Predispone un file per la lettura 

File system 

RESULT 

Restituisce il risultato di una 
funzione ! 

Livello Esteso 

RETYPE 

Forza un'espressione a tipo j 

Livello Sistema 

REWRITE 

Predispone un file per la scrittura ! 

File system 

ROUND 

Arrotondamento REAL 

Conversione dati 

R0UND4 

Arrotondamento 1NTEGER4 

Conversione dati 

SADDOK 

Controllo addizione 16—bit con segno i 

Libreria 

SCANEQ 

Cerca fino a trovare il carattere 

Stringa 

SCANNE 

Cerca finché non trova il carattere 

Stringa 

SEEK 

Posizionamento al record del | 

file in modo diretto 

File system 

SHDRQQ 

Seno iperbolico REAL8 i 

Aritmetica 

SHSRQQ 

Seno iperbolico REAL4 

Aritmetica 

SIN 

Funzione seno 

Aritmetica 

S1ZEOF 

Rileva la dimensione delle struttura 

Livello Esteso 

SMULOK 

Controllo moltiplicazione 16-bit 
con segno 

Libreria 

SNDRQQ 

Funzione seno REAL8 

Aritmetica 

SNSRQQ 

Funzione seno REAL4 

Aritmetica 

SQR 

Funzione elevazione al quadrato 

Aritmetica 

SQRT 

Funzione radice quadrata 

Aritmetica 

SRDRQQ 

Radice quadrata REAL8 

Aritmetica 

SRSRQQ 

Radice quadrata REAL4 

Aritmetica 

SUCC 

Funzione successore 

Conversione dati 

THDRQQ 

Tangente iperbolica REAL8 

Aritmetica 

THSRQQ 

Tangente iperbolica REAL4 

Aritmetica 

T1CS 

Ora nelle unita' arbitrarie 

Libreria 

TIME 

Ora nella funzione giorno 

Libreria 

TNDRQQ 

Funzione tangente REAL8 

Aritmetica 


Tabella F-1 


Procedure e Funzioni (cont.) 



NOME 

DESCRIZIONE 

CATEGORIA 

TNSRQQ 

Funzione tangente REAL4 

Aritmetica 

TRUNC 

Troncamento REAL 

Conversione dati 

TRUNC4 

Troncamento 1NTEGER4 j 

Conversione dati 

UADDOK 

Controllo addizione senza segno , 

Libreria 

UMULOK 

Controllo moltiplicazione senza 
segno 

Libreria 

UNLOCK 

Sblocca una risorsa 

Libreria 

UNPACK 

STRING non impaccata in array 

Conversione dati 

UPPER 

Raggiungi i limite superiore 

Livello Esteso 

VECT1N 

Definisce il vettore d'interruzioni 

Libreria 

WRD 

Conversione al valore WORD 

Conversione dati 

WRITE 

Scrive su file 

File System 

WRITELN 

Scrive una linea su file 

File system 
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SOMMARIO 


Questa appendice fornisce una singola lista alfabetica 
metacomandi descritti in "Metacomandi", Capitolo 19. 
default, se ve ne sono, sono indicati dopo i metacomandi. 


di tutti 
1 valori 


i 

di 


INDICE 
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RIEPILOGO DEI METACOMAND1 PASCAL ; 

i 


METACOMANDO 

AZIONE 

$BRAVE+ 

Invia messaggi al video del terminale 

f 

$DEBUG- 

Disattiva tutti i controlli di errore (CK) 

r 

$ENTRV- 

Genera per il debugger le chiamate di entrata e j 

uscita dalla procedura ! 

$ERRORS: 25 

Definisce il numero di errori ammessi per pagina j 

$EXTEND 

Aggiunge prestazioni al livello Esteso 

$GOTO- 

1 flag sui GOTO vengono considerati "pericolosi" 

$1F <costante> 

$THEN <testo1> 

$ELSE <testo2> 

$END 

Consente la compilazione condizionale del sorgen¬ 
te <testo1> se la <costante> è maggiore di zero 

$INCLUDE: ’<file>' 

| 

Commuta la compilazione sul file specificato 

$INCON5T: <testo> 

Consente l'assegnazione interattiva di valori 
costanti durante la fase di compilazione 

$INDEXCK+ 

Controlla che i valori degli indici dell'array 
non siano fuori del campo di variabilità 1 

$INITCK- 

j 

| 

Controlla che non vengano usati valori non ini¬ 
ziali zzati 

$1NTEGER 1 

Definisce la lunghezza del tipo 1NTEGER 

$LINE- 

Genera le chiamate di numerazione righe per il 
debugger 

$L1NESIZE: 79 

Definisce la definizione del listing del sorgente 
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METACOMANDO 

FUNZIONE 

$L1ST+ 

Attive o disattiva il listing del sorgente 

$MATHCK+ 

Controlla errori di matematica 

$MESSAGE:’<testo> 1 

Visualizza un messaggio sul terminale 

$N1LCK+ 

Controlla il valore del puntatore 

SOCODE+ 

Attiva o disattiva il listing del codice oggetto 

$PAGE+ 

Salta alla pagina successiva 

$PAGE: <n> 

Definisce il numero di pagina per quella succes¬ 
siva 

$PAGE1F: <n> 

Salta alla pagina succesiva se mancano meno di 
<n> righe 

$PAGES1ZE: 55 

Definisce la lunghezza della pagina di listing 
del sorgente 

$P0P 

Ripristina il valore memorizzato di tutti ì meta- 
comandi 

$PUSH 

Memorizza il valore attuale di tutti i metacoman¬ 
di 

$RANGECK+ 

Controlla la validità del subrange 

$REAL:4 

Definisce la lunghezza del tipo REAL 

$R0M 

Avviso della inizializzazione aritmetica 

$RUNT1ME- 

Determina il contesto degli errori in fase di e- 
secuzione 

$SIMPLE 

Disabilita le ottimizzazioni globali 

$S1ZE 

Minimizza la grandezza del codice generato 

$SKIP: <n> ! 

! 

Salta n righe oppure va a fine pagina 

$SPEED 

Minimizza il tempo di esecuzione del codice 

$STACKCK+ 

Controlla l'overflow dello stack in fase di in¬ 
gresso 

. - - _!r. 


Tabella G-1 Metacomandi Pascal (continuazione) 



linguaggio pascal Manuale generale 





RIEPILOGO DEI METACOMANDI PASCAL 


METACOMANDO ; 

._. ~j 

$STANDARD | 

i 

$SUBT1TLE: '<subt>' j 
$SYMTAB+ 

f 

$SYSTEM 

| 

$TAGCK- | 

i 

$TITLE: '<title>' 
$WARN+ 


FUNZIONE 

Abilita solo il livello Standard 

Definisce il sottotitolo delle pagine 

Invia la tabella dei simboli al listing del sor¬ 
gente 

Aggiunge prestazioni al livello Esteso e di Si¬ 
stema 

Controlla le etichette dei campi nei record con 
varianti 

Fornisce il titolo pagina per il listing del sor¬ 
gente 

Da' messaggi di avvertimento nel listing sorgente 
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Questa appendice elenca tutti i numeri ed i messaggi di errore che è 
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INTRODUZIONE 

Le condizioni di errore possono essere riunite nelle seguenti categorie: 
avvertimenti in fase di compilazione 
errori rilevati in fase di compilazione 
errori interni del compilatore 

errori (sia in fase di compilazione che di esecuzione) definiti dallo 
standard ISO ma non rilevati dal Pascal 

errori di runtime del file System 

errori di runtime del file System rilevati soltanto se il relativo 
switch e' attivo. 

errori di runtime del file System rilevati comunque. 

Gli errori del linker sono specifici del linker per il sistema operativo 
utilizzato e sono perciò' riportati nel manuale "Linguaggio Pascal Guida 
Utente". 

Le condizioni di errore possono essere: 
errore non rilevato 
errore rilevato dal compilatore 
errore rilevato dal sistema runtime. 

Un errore e' "rilevato" se il compilatore o il sistema runtime 
individuano l’errore e danno un messaggio. Un avvertimento ("warning") 
e' un errore individuato dal compilatore ma stabilito in modo che il 
sorgente compilato possa girare correttamente. Gli errori di 

sostituzione (ad esempio usare due punti (:) invece di un segno di uguale 
(=)) ed alcuni altri errori di sintassi (ad esempio l'uso di punto e 
virgola (;) prima di un ELSE) sono errori comuni che generano solo un 
messaggio di avvertimento e sono fissati dal compilatore. Occorre 
comunque rivedere il sorgente e correggere gli errori, altrimenti vengono 
emessi gli stessi messaggi ogni volta che si compila. 

Gli errori delle fase di compilazione comprendono tutte le condizioni 
descritte in questo manuale come "invalido", "illegale", "non permesso", 
e cosi' via. Lo standard 150 definisce un certo numero di errori che 
sono definiti come "errori non rilevati" nel Pascal ma che possono essere 
individuati in altre implementazioni. 
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ERRORI FRONT END DEL COMPILATORE 


Gli errori front end ed i messaggi di avvertimento sono costituiti da un 
numero e da un messaggio. La maggior parte dei messaggi riportano una 
fila di barrette ed una freccia che punta alla locazione dell'errore; tre 
di questi messaggi (128, 129 e 130) appaiono solo dopo il corpo della 
routine in cui si sono verificati. La parola "WARNING" identifica gli 
avvertimenti come tali; tutti gli altri messaggi riportano errori di 
programma. 

11 front end riesce a rimediare alla maggior parte degli errori; cioè' 
corregge la condizione e prosegue con la compilazione. Vi sono comunque 
alcuni errori di front end dai quali il compilatore non può' uscire. In 
questi casi compare il messaggio: 

Compiler Cannot Continue ! 

11 compilatore allora può' fare ben poco, oltre che listare il resto del 
programma. Questi errori si manifestano nelle seguenti circostanze: 


si hanno piu' errori di quelli definiti dal metacomando $ERR0RS 


si incontra un end-of-file inatteso 

i domini degli identificatori sono nidificati troppo profondamente 

il compilatore non riesce a trovare le parole chiave PROGRAM, MODULE 
o 1MPLEMENTATI0N 


il compilatore non riesce a trovare gli identificatori PROGRAM, 
MODULE o 1MPLEMENTATI0N 


si genera un errore di file System. 11 messaggio riporta il nome del 
file e una delle seguenti frasi: 


HARD DATA 
DISK FULL 
FILE ACCESS 
FILE SYSTEM 


(errore di controllo somma) 

(il disco e' pieno) 

(il file non e' stato trovato) 
(altro errore o errore interno) 


Il front end può' anche individuare uno di questi due errori di runtime 
del compilatore: 


Errore: Compiler Out of Memory 

Questo di solito avviene quando sono stati dichiarati troppi 
identificatori. 


Errore: Compiler Internai Error 

Indipendentemente dal programma sorgente compilato, questo errore non 
deve mai verificarsi. 

Se prima di un messaggio appare la parola "WARNING", il file di codice 
intermedio generato dal front end e' corretto. La condizione che ha 


H-2 LINGUAGGIO PASCAL MANUALE GENERALE 




MESSAGGI DI ERRORE 


prodotto l'avvertimento non e' grave, ma e' considerata poco sicura. I 
messaggi che indicano errori veri bloccano ogni scrittura sui file 
intermedi, che vengono eliminati quando il front end e' terminato. 

11 messaggio di errore "Compiler" significa che qualche controllo di 
coerenza interno ha dato risultati sfavorevoli. Indipendentemente dal 
sorgente in compilazione, questo messaggio non dovrebbe mai apparire. 

L'elenco seguente di errori front end del compilatore comprende numero e 
messaggio di errore, con un breve chiarimento sulla condizione che genera 
il messaggio. 

Codice Messaggio 

101 Invalid Line Number 

Ci sono troppe linee nel file sorgente (il limite massimo e' 
32767). 

102 Line Too Long Truncated 

Nella riga ci sono troppi caratteri (il limite attuale e' di 142 
caratteri). 

103 Identifier Too Long Truncated 

La lunghezza di un identificatore supera quella massima 
consentita dal sistema operativo e perciò' viene troncata. Per 
sapere quale e' la lunghezza massima consentita si può' vedere 
l’Appendice A, "Caratteristiche di Implementazione", del manuale 
"Linguaggio Pascal Guida Utente". 

104 Number Too Long Truncated 

Una costante numerica e' troppo lunga e perciò' viene troncata. 
Le costanti numeriche hanno la stessa lunghezza massima degli 
identificatori. 

105 End Of String Not Found 

Le riga e' terminata prima di incontrare il segno di virgolette 
(") di chiusura. 

106 Assumed String 

11 compilatore ha incontrato il segno di virgolette (") o di 
apici rovesciati (*) ed ha assunto che tali caratteri racchiudano 
una stringa. Conviene usare solo gli apici singoli ('). 

107 Unexpected End Of File 

Durante lo scanning il compilatore ha trovato un end-of-file 
inaspettato in un metacomando, in un numero o in un'altra 
locazione non valida. 
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Meta Command Expected Command Ignored 

Il compilatore ha trovato il carattere dollaro ($) all'inizio di 
un comando, ma non l'identificatore di metacomando. 

Unknown Meta Command Ignored 

11 compilatore ha trovato un identificatore di metacomando che 
non riconosce o che non e' valido in questa versione del Pascal. 

Constant ldentifier Unknown Or Invalid Assumed Zero 

L'identificatore di costante che segue un metacomando e' 
sconosciuto (come in $DEBUG: A) oppure non e' una costante del 
tipo giusto. Il compilatore ha sostituito con zero il valore 
sconosciuto o non corretto. 

Invalid Numeric Constant Assumed Zero 

La costante che segue un metacomando e' numerica (ed esempio 
$DEBUG: 123456) ma ha formato erroneo o e' fuori campo. 11 
compilatore ha sostituito con zero il valore non corretto. 

Invalid Meta Value Assumed Zero 

Il valore che segue un metacomando non e' ne' una costante ne' un 
identificatore. Il compilatore ha sostituito con zero il valore 
non corretto. 

Invalid Meta Command 

Il compilatore si aspettava uno dei seguenti segni dopo un 
metacomando: o : ma non Io ha trovato. Il metacomando 

viene ignorato dal compilatore. 

Wrong Type Value Por Meta Command Skipped 

Il valore seguente il metacomando era un intero, e invece doveva 
essere una stringa (o viceversa). Il metacomando e' stato 
ignorato dal compilatore. 

Meta Value Out Of Range Skipped 

11 valore intero dato per il metacomando $L1NESIZE era minore di 
16 o maggiore di 160. Oppure "n" non e' ne' 4 ne' 8 per $REAL:n 
e non e' 2 per $1NTEGER. In ognuno di questi casi il 
compilatore ignora il metacomando. 

File ldentifier Too Long Skipped 

II valore della stringa dato per il nome del file in un 
metacomando $INCLUDE era troppo lungo. Il metacomando e' stato 
ignorato. 11 massimo ammesso e' 96 caratteri. 
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di file 


Un metacomando $P0P non ha il corrispondente metacomando $PUSH. 

120 CONST ldentifier Expected 

Il compilatore non ha trovato alcun identificatore dopo il 
metacomando $1NC0NST. Il metacomando $1NC0NST e' ignorato. 

121 Invaiid INPUT Number Assumed Zero 

L'input dell'utente invocato con $1NC0NST era invalido e si 
assume che sia uguale a zero. 

122 Invalid Meta Command Skipped 

Il compilatore ha trovato un metacomando $1F ma non quello 
seguente $THEN o $ELSE. 11 comando $1F viene ignorato. 

123 Unexpected Meta Command Skipped 

11 compilatore ha trovato un metacomando $THEN non correlato ad 
alcun metacomando $1F. Il metacomando $THEN e 1 ignorato. 

124 Unexpected Meta Command 

11 compilatore ha trovato un metacomando non compreso fra 
delimitatori di commento, ma lo elabora ugualmente. 

126 Invalid Reai Constant 

11 compilatore ha trovato una costante di tipo REAL con un punto 
decimale in testa o in coda. 11 valore della costante e' comunque 
accettato. 

127 Invalid Character Skipped 

11 compilatore ha trovato nel file sorgente un carattere che non 
e' accettabile nel testo di programma. 

128 Forward Proc Missing: <procedure> 

11 compilatore ha trovato una procedura o una funzione dichiarata 
FORWARD ma non può' trovare la procedura o la funzione stessa. 
Questo messaggio appare nella zona della tabella dei simboli del 
file di listing. 

129 Label Not Encountered: <label> 

11 compilatore non trova alcun uso possibile di un'etichetta 


118 Too Many File Levels 

Nel metacomando $1NCLUDE vi sono troppi livelli 
nidificati. 11 metacomando $INCLUDE e' ignorato. 

119 Invalid Initialize Meta 








dichiarata nella sezione etichetta. Questo messaggio appare 
nella zona della tabella dei simboli del file listing. 

1.30 Program Parameter Bad: <parameter> 

11 compilatore ha incontrato questo parametro di programma che 
non e' mai stato dichiarato oppure e' di tipo inaccettabile. 
Questo messaggio appare nella zona dei simboli del file listing. 

133 Type Size Overflow 

11 tipo di dati dichiarato presuppone una struttura piu' grande 
del massimo consentito di 65534 byte. 

134 Constant Memory Overflow 

L'allocazione di memoria costante ha superato il massimo di 65534 
byte. 

135 Static memory Overflow 

L'allocazione di memoria statica ha superato il massimo 
consentito di 65534 byte. 

136 Stack Memory Overflow 

L'allocazione di memoria per lo stack ha superato il massimo 
consentito di 65534 byte. 

137 Integer Constant Overflow 

11 valore di un tipo INTEGER, di un'espressione costante con 
segno, e' fuori campo di variabilità'. 

138 Word Constant Overflow 

11 valore di un tipo WORD o di altre espressioni costanti senza 
segno e' fuori campo di variabilità'. 

139 Value Not In Range For Record 

In una costante strutturata, nella forma lunga di una procedure 
NEW, DISPOSE o S1ZE0F o in altre applicazioni, il valore 
dell'etichetta di record non e' nel campo della variante. 

140 Too Many Compiler Labels 

11 compiler ha bisogno di etichette interne ed il programma e' 
troppo lungo. Bisogna spezzare il programma in parti piu' 
piccole. 

141 Compiler 

142 Too Many Identifier Levels 
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Il livello di dominio dell'identificatore supera il 15. Questo 
e' un errore pericoloso. 

143 Compiler 


144 Compiler 

Questo errore può' verificarsi se il formato del file PASKEY non 
e' corretto. 

145 ldentifier Already Deciared 

11 compilatore ha trovato un identificatore dichiarato piu' di 
una volta nello stesso livello di dominio. 

146 Unexpected End Of File 

Durante l'analisi il compilatore ha trovato un fine-file fuori 
posto: in un'istruzione, una dichiarazione ecc. 

147 : Assumed = 

11 compilatore ha trovato un segno di due punti (:) che avrebbe 
dovuto essere un segno di uguale (=), e prosegue come se avesse 
incontrato il segno corretto. 

148 = Assumed : 

Il compilatore ha trovato un segno di uguale dove si aspettava 
invece i due punti, e prosegue come se vi fosse il segno 
corretto. 

149 := Assumed = 

Il compilatore ha trovato un due punti seguito da un segno di 
uguale dove si aspettava di trovare solo un segno di uguale, e 
procede come se vi fosse il simbolo corretto. 

150 = Assumed := 

11 compilatore ha trovato un segno di uguale dove si aspettava 
due punti seguiti da uguale; procede come se avesse trovato il 
segno corretto. 

151 [ Assumed ( 

11 compilatore ha trovato una parentesi quadra di apertura dove 
si aspettava una tonda, e prosegue come se fosse presente il 
segno corretto. 

152 ( Assumed [ 

11 compilatore ha trovato una parentesi tonda di apertura dove si 
aspettava una quadra, e prosegue come se avesse trovato il segno 
corretto. 






153 ) Assumed ] 

Il compilatore ha trovato una parentesi tonda di chiusura dove si 
aspettava di trovarne una quadra, e prosegue come se avesse 
trovato il segno corretto. 

154 ] Assumed ) 

11 compilatore ha trovato una parentesi quadra di chiusura dove 
si aspettava una tonda, e prosegue come se fosse presente il 
segno corretto. 

155 ; Assumed , 

11 compilatore ha trovato un punto e virgola dove si attendeva 
una virgola, e prosegue come se avesse trovato il segno corretto. 

156 , Assumed ; 

11 compilatore ha trovato una virgola dove si attendeva un punto 
e virgola e prosegue come se ci fosse il segno corretto. 

162 Insert Symbol 

11 compilatore non ha trovato il simbolo che si aspettava, ma 
prosegue come se ci fosse. Questo messaggio non deve mai 

apparire in quanto segnala un errore, sia pur non grave, del 
compilatore. 

163 Insert , 

11 compilatore non ha trovato una virgola dove si aspettava, ma 
procede come se ci fosse. 

164 Insert ; 

il compilatore non ha trovato un punto e virgola dove si 

aspettava, ma procede come se ci fosse. 

165 Insert = 

11 compilatore non ha trovato un segno di uguale dove si 

aspettava, ma procede come se ci fosse. 

166 Insert := 

Il compilatore non ha trovato i due punti seguiti de uguale dove 
si aspettava di trovarli, ma prosegue come se ci fossero. 

167 Insert OF 

11 compilatore non ha trovato un OF dove si aspettava, ma procede 
come se ci fosse. 
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Insert ] 


Il compilatore non ha trovato una parentesi quadra di chiusura, 
ma prosegue come se ci fosse. 

169 Insert ) 

II compilatore non ha trovato una parentesi tonda di chiusura 
dove si aspettava, ma prosegue come se ci fosse. 

170 Insert [ 

Il compilatore non ha trovato una parentesi quadra di apertura 
dove si aspettava, ma prosegue come se ci fosse. 

171 Insert ( 

11 compilatore non ha trovato una parentesi tonda di apertura 
dove si aspettava, ma prosegue come se ci fosse. 

172 Insert DO 

11 compilatore non ha trovato un DO dove si aspettava. Prosegue 
come se ci fosse. 

173 Insert : 

Il compilatore non ha trovato il segno di due punti dove si 
aspettava. Prosegue come se ci fosse. 

174 Insert . 

11 compilatore non ha trovato un punto (.) dove si aspettava di 
trovarne; prosegue come se ci fosse. 

175 Insert .. 

Il compilatore non ha trovato un doppio punto (..) dove se si 
aspettava di trovarlo; prosegue come se ci fosse. 

176 Insert END 

Il compilatore non ha trovato un END dove si aspettava, ma 

prosegue come se ci fosse. 

177 Insert TO 

Il compilatore non ha trovato un TO dove si aspettava, ma 

prosegue come se ci fosse. 

178 Insert THEN 

11 compilatore non ha trovato un THEN dove si aspettava, ma 

prosegue come se ci fosse. 



179 


Insert * 


Il compilatore non ha trovato un asterisco dove si aspettava, ma 
prosegue come se ci fosse. 

185 Invalid Symbol Begin Skip 

11 compilatore ha trovato il simbolo che si aspettava, ma solo 
dopo aver incontrato alcuni simboli non validi. I simboli non 
validi, compresi fra il punto in cui appare il messaggio 185 e 
quello in cui appare il messaggio 186, vengono saltati. 

186 End Skip 

Il compilatore ha trovato il simbolo che si aspettava, ma solo 
dopo aver incontrato alcuni simboli non validi. I simboli non 
validi, compresi fra il punto in cui appare il messaggio 185 e 
quello in cui appare il messaggio 186, vengono saltati. 

187 End Skip 

Questo messaggio indica sempre la fine della porzione di testo 
sorgente che e' stata saltata con qualsiasi messaggio escluso il 
185. 

188 Section Or Expression Too Long 

11 compilatore ha raggiunto il suo limite. Bisogna provare a 

riorganizzare il programma o spezzare l’espressione in piu' parti 
con assegnazioni a valori intermedi. 

189 Invalid Set Operator Or Function 

11 file sorgente contiene un uso non corretto di un operatore o 
una funzione set non corretta (per esempio l'operatore MOD o la 
funzione ODD con dei set). 

190 Invalid REAL Operator Or Function 

11 file sorgente contiene un uso non corretto di un operatore o 
di una funzione di REAL (per esempio l'operatore MOD o la 
funzione ODD con dei reai). 

191 Invalid Value Type For Operator Or Function 

Per esempio l’operatore MOD o la funzione ODD con un tipo 
enumerato. 

195 Compiler 

196 Zero Size Value 

11 file sorgente contiene il record vuoto "RECORD END" come se 
avesse una dimensione. 
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197 Compiler 

198 Constant Expression Value Out Of Range 

Il valore di un'espressione costante in un indice di array, in 
un'assegnazione subrange o in altri subrange, e' fuori del campo 
di variabilità'. 

199 lnteger Type Not Compatible With Word Type 

In un'espressione si e' tentato di mescolare valori 1NTEGER con 
valori WORD. Questo errore comune indica una confusione fra 
valori aritmetici con segno e senza segno. Occorre modificare il 
valore positivo con segno in uno senza segno utilizzando WRD (), 
oppure cambiare quello senza segno (<MAX1NT) in uno con segno con 
ORD (). 

201 Types Not Assignment Compatible 

Si e' tentato di usare dei tipi incompatibili in una istruzione 
di assegnazione o in un parametro di valore. Per le norme di 
compatibilita' fra tipi si può' vedere "Compatibilita di Tipo", 
nel Capitolo 7. 

202 Types Not Compatible In Expression 

Si e' tentato di usare, in un’espressione, tipi non compatibili. 
Per le norme di compatibilita' si può’ vedere "Compatibilita' di 
Tipo", nel Capitolo 7. 

203 Not Array Begin Skip 

Una variabile seguita da una parentesi quadra o tonda di apertura 
non e' un array. 11 compilatore salta la parte di codice 
compresa fra questo punto e quello in cui appare il messaggio 
187. 

204 lnvalid Ordinai Expression Assumed lnteger Zero 

L'espressione contiene un tipo'che e' sbagliato o non ordinale. 
11 compilatore assume che il valore dell’espressione sia zero. 

205 lnvalid Use Of PACKED Components 

Un componente di una struttura PACKED non ha indirizzo (non può' 
essere in un byte di confine) e non può' essere passato per 
riferimento. 

206 Not Record Field lgnored 

Una variabile seguita da un punto non e* un record, un indirizzo 
o un file; e' stata perciò' ignorata dal compilatore. 


207 


lnvalid Field 



Un nome valido di campo non segue una variabile record e un 
punto; il compilatore lo ha ignorato. 

208 File Dereference Considered Harmful 

Quando il compilatore calcola l'indirizzo di una variabile buffer 
di un file, non può' compiere le operazioni che di solito fa 
sulle variabili buffer (ad esempio valutazione lazy per i file 
testo, o concorrenza per i file binari). Poiché' la variabile 
buffer a questo indirizzo può' non essere valida, questo 
situazione viene considerata pericolosa. 

209 Cannot Dereference Value 

La variabile seguita da una freccia non e' un puntatore, un 
indirizzo o un file. Perciò' il compilatore non può' togliere 
riferimento al valore indicato. 

210 lnvalid Segment Address 

Una variabile risiede in un indirizzo segmentato, ma e' 
necessario un valore di default dell'indirizzo del segmento. 
Può' essere necessario fare una copia locale della variabile. 

211 Ordinai Expression lnvalid Or Not Constant 

11 compilatore ha trovato un'espressione invalida o non costante 
la' dove si aspettava un'espressione costante ordinale. 

214 Out Of Range For Set 255 Assumed 

11 compilatore ha trovato un elemento di una costante set il cui 
valore ordinale e' superiore a 255, ed assume perciò' il valore 
255. 

215 Type Too Long Or Contains File Begin Skip 

11 compilatore ha trovato una costante strutturata che supera i 
255 byte oppure e' (o contiene) un tipo FILE o LSTR1NG. 

216 Extra Array Components Ignored 

11 compilatore ha trovato una costante array che ha troppi 

componenti in relazione al tipo di array. 1 componenti in 

eccesso sono ignorati. 

217 Extra Record Components Ignored 

11 compilatore ha trovato una costante record che contiene troppi 

componenti in relazione al tipo di record. 1 componenti in 

eccesso sono ignorati. 

218 Constant Value Expected Assumed Zero 

11 compilatore ha trovato un valore non costante in una costante 
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strutturate ed ha assunto il valore uguale zero. 

220 Compiler 

221 Components Expected For Type 

11 compilatore ha trovato troppo pochi componenti per il tipo di 
una costante strutturata. 

222 Overflow 255 Components In String Constant 

11 compilatore ha trovato una costante stringa che supera i 255 
byte. 

223 Use NULL 

Occorre usare la costante predichiarata NULL anziché' due 
virgolette 

224 Cannot Assign With Supertype Lstring 

Un super array LSTRING non può' essere la fonte o la destinazione 
di un'assegnazione. 

225 String Expression Not Constant 

La concatenazione fra stringhe mediante asterisco si applica solo 
a costanti. 

226 String Expected Character 255 Assumed 

11 compilatore ha trovato una costante stringa senza caratteri, 
forse derivante dall'uso di NULL, e perciò' ha assunto il valore 
CHR (255). 

227 lnvalid Address Of Function 

Un'assegnazione o un altro indirizzo di riferimento al valore 
della funzione non e' all'interno del dominio della funzione. 
Oppure RESULT e' usato al di fuori del dominio della funzione. 

228 Cannot Assign To Variable 

L’assegnazione alle variabili di controllo READONLY, CONST, o FOR 
non e' consentita. 

230 Unknown ldentifier Assumed lnteger Begin Skip 

Il compilatore ha trovato un identificatore sconosciuto per il 
quale vuole un indirizzo, e perciò' e' saltato ad una virgola, 
punto e virgola o parentesi destra. 

231 VAR Parameter Or WITH Record Assumed lnteger Begin Skip 

11 compilatore ha trovato un simbolo non valido dove gli serve un 






indirizzo e perciò' e’ saltato ad una virgola, punto e virgola o 

parentesi chiusa. j j 

232 Cannot Assign To Type 

La destinazione di un'assegnazione e’ un file: non può' essere 
assegnata per qualche altra ragione. 

233 lnvalid Procedure Or Function Parameter Begin Skip 

ì 

11 compilatore ha trovato un uso non corretto di una funzione o 
procedura intrinseca. L'errore può* essere uno dei seguenti: 

il primo parametro di NEW o DISPOSE non e' una variabile 
puntatore 

il valore delle etichette di record delle procedure NEW, { ) 

DISPOSE, S1ZE0F non e' stato trovato 

il super array nelle procedure NEW, DISPOSE, S1ZE0F ha troppi 
limiti 

I 

il super array in una procedure NEW, DISPOSE o S1ZE0F ha 

troppo pochi limiti ' 

al super array per una procedura NEW o S1ZE0F non e' stato 
dato alcun limite 

si e' tentato di usare una funzione WRD o ORD su di un valore 
non di tipo ordinale 

si e' tentato di usare le funzioni LOWER o UPPER in un valore 
o tipo non valido 

PACK o UNPACK in un super array o file, oppure un array che 
e' (o non e') impaccato come ci si aspettava 

il primo parametro di un RETVPE non e' un identificatore di i 

tipo 

il parametro di una funzione RESULT non e' un identificatore 
di funzione 

si e' tentato di usare una funzione o procedura intrinseca 
non disponibile in questa versione di Pascal 

ORD o WRD di un valore 1NTEGER4 e' fuori campo di 
variabilità' 

il parametro dato per H1W0RD o LOWORD non e' ne' un ordinale 
ne' 1NTEGER4. 

234 Type lnvalid Assumed Integer 

11 parametro dato per READ, WR1TE, ENCODE o DECODE non e' del 
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tipo 1NTEGER, WORD, INTEGER4, REAL, _BOOLEAN, enumerato, o 
puntatore; oppure il parametro dato per READ o WRITE non e' di 
uno di questi tipi o del tipo FILE. 11 compilatore ha assunto 
che fosse del tipo 1NTEGER. Questo errore si può 1 anche 
verificare se un parametro di programma non ha un tipo leggibile, 
nel qual caso si verifica un errore alla parola chiave BEGIN del 
programma principale. 

235 Assumed File INPUT 

Poiché’ il primo parametro di un READFN non e' un file, e’ 
assunto INPUT. 

236 Invalid Segment For File 

11 parametro di file deve risiedere sempre nel segmento di 
default. 

237 Assumed INPUT 

INPUT non era stato dato come parametro di programma ed e' stato 
assunto. 


238 Assumed OUTPUT 

OUTPUT non era stato dato come parametro di programma ed e' stato 
assunto. 

239 Not Lstring Or Invalid Segment 

La destinazione di un READSET, ENCODE, o DECODE deve essere una 
LSTRING nel segmento di default. Una {o ambedue) di queste 
condizioni e' mancante. 

242 File Parameter Expected Begin Skip 

La procedura READSET si aspettava un parametro di file testo ma 
non Io ha trovato. II compilatore ha ignorato la procedura e 
riparte dal punto in cui appare il messaggio 187. 

243 Character Set Expected 

La procedura READSET si aspettava un parametro SET OF CHAR ma non 

10 ha trovato. 

244 Unexpected Parameter Begin Skip 

11 compilatore ha trovato piu' di un parametro dato per EOF, 
EOLN, o PAGE; ha ignorato quelli in eccesso. 

245 Not Text File 

Si e 1 tentato di usare EOLN, PAGE, READLN, o WRITELN in qualche 
file che non e' un file testo. 



248 



Size Not Identical 

La funzione RETYPE non può' operare come richiesto finche' i 
parametri passati non sono della stessa lunghezza. 

249 Procedural Type Parameter List Not Compatible 

i 

Le liste di parametri per i parametri procedurali sia formali che 
effettivi non sono compatibili. Cioè' il numero di parametri, il 
tipo della funzione risultato, il tipo di qualche parametro o gli 
attributi sono differenti. 

250 Cannot Use Procedure With Attribute 

I 

I 

Si e' tentato di chiamare una procedura con l'attributo 1NTERRUPT 
direttamente o indirettamente. INTERRUPT non lo consente. 

251 Unexpected Parameter Begin Skip 

11 compilatore ha trovato una parentesi tonda aperta che indica 
una funzione o una procedura, ma non ha trovato dei parametri e 
perciò' e’ saltato al punto in cui appare il messaggio 187. 

252 Cannot Use Procedure Or Function As Parameter 

! 

Si e' tentato di passare questa procedura o funzione intrinseca 
come parametro; la cosa non e' permessa. 

253 Parameter Not Procedure Or Function Begin Skip j 

11 compilatore si aspettava un parametro procedurale ma non lo ha | 

trovato. Salta al punto in cui appare il messaggio 1B7. | 

I 

254 Supertype Array Parameter Not Compatible 

11 parametro attuale passato non e' dello stesso tipo o non e' 
derivato dallo stesso tipo super del parametro formale. 

255 Compiler 

256 VAR Or CONST Parameter Type Not Identical 

I tipi dei parametri di riferimento attuali e formali non sono, 
come dovrebbero essere, identici. 

257 Parameter List Size Wrong Begin Skip 

II compilatore ha trovato troppi o troppo pochi parametri nelle 
liste. Se ne ha trovati troppi ha saltato quelli in eccesso. 

258 Invalid Procedural Parameter To EXTERN 

Una procedura o una funzione (che non e' ne' PUBLIC ne' EXTERN) 
e' stata passata come parametro ad una procedura o funzione 
dichiarata EXTERN. 11 compilatore invoca la procedura o funzione 
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259 


260 


261 


attuale con delle chiamate intrasegmento e perciò' non può' 
passarle ad un segmento di codice esterno. 

Invalid Set Constant For Type 

11 set non e' costante, i tipi base non sono identici o la 
costante e' troppo lunga. 


Unknown Identifier In Expression Assumed Zero 

L'identificatore di un'espressione non e' definito o e' mal 
scritto. 


Identifier Urong In Expression Assumed Zero 


L'identificatore di un'espressione non e’ corretto (ad esempio un 
identificatore di tipo file) perciò' e' stato assunto uguale a 
zero. 


262 Assumed Parameter Index Or Field Begin Skip 

Dopo l'errore 260 o 261 tutti i caratteri compresi fra parentesi 
quadre o tonde, oppure i trattini seguiti da un identificatore, 
vengono saltati. 

265 Invalid Numeric Constant Assumed Zero 

Qualche costante letterale assunta come 1NTEGER o 1NTEGER4 
contiene un errore di decodifica. Il numero e' troppo grande, ha 
un carattere non valido ecc. La costante non corretta e' stata 
assunta uguale o zero. 

267 Invalid Reai Numeric Constant 

In qualche costante letterale assunta tipo REAL c'e' un errore di 
decodifica. II numero e' troppo grande, un carattere non e' 
corretto ecc. 

268 Cannot Begin Expression 5kipped 

E'stato eliminato un simbolo che non può' dare inizio ad una 
espressione. 

269 Cannot Begin Expression Assumed Zero 

E'stato sostitiuto con zero un simbolo che non può' dare inizio 
ad una espressione. 

270 Constant Overflow 


Il divisore in una funzione D1V o MOD e’ la costante zero 
(INTEGER o WORD). La cosa non e' permessa. 

272 Word Constant Overflow 



Una costante WORD meno una constante WORD ha dato come risultato 
un valore negativo. 

275 lnvalid Range 

11 limite inferiore di un subrange e' piu' grande del limite 
superiore (es 2 . .1 ). 

276 CASE Constant Expected 

11 compilatore si aspettava un valore della costante per 
l'istruzione CASE o per una variante record, ma non lo ha 
trovato. 

277 Value Already In Use 

In un'istruzione CASE o in un record variante il valore e' già' 
stato assegnato (come ad esempio in CASE 1..3 : XXX ; 2 : YYY ; 
END). 

279 Label Expected 

11 compilatore si aspettava un'etichetta ma non l'ha trovata. 

280 lnvalid Integer Label 

Un'etichetta usa notazioni non decimali (ad esempio 8#77) che non 
sono ammesse. 

281 Label Assumed Declared 

Il compilatore ha trovato un'etichetta che non appare nella 
sezione LABEL. 

283 Expression Not Boolean Type 

L'espressione che segue un IF, un WHILE o un UNT1L deve essere 
BOOLEAN. 

284 Skip To End Of Statement 

11 compilatore ha trovato, e ha saltato, una clausola ELSE o 
UNTIL inaspettata. 

285 Compiler 

286 ; Ignored 

11 compilatore ha trovato, ed ha ignorato, un punto e virgola 
prima di un ELSE (il punto e virgola non e' necessario in questo 
caso). 

288 : Skipped 

11 compilatore ha trovato ed ignorato un segno di due punti (:) 
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dopo un'istruzione 0THERW1SE (i due punti non sono necessari in 
questo caso). 

289 Variable Expected For FOR Statement Begin Skip 

11 compilatore si aspettava un identificatore di variabile dopo 
uno statement FOR ma, non trovandolo, e' saltato al punto in cui 
appare il messaggio 187. 

291 FOR Variable Not Ordinai Or Static Or Declared In Procedure 

11 compilatore ha trovato in uno statement FOR una variabile di 
controllo non corretta. In particolare, la variabile di controllo 
e' (ma non dovrebbe esserlo) una delle seguenti: 

tipo REAL, 1NTEGER4 o un altro tipo non ordinale 

il componente di un tipo array, record o file 

il tipo referente a puntatore o a tipo indirizzo 

nello stack o nello heap, a meno che non sia specificamente 
indicato 

dichiarata non localmente, a meno che non lo sia nella 
memoria statica 

un parametro di riferimento (VAR o VARS) 

una variabile con un attributo 0R1G1N segmentato. 

292 Skip To := 

11 compilatore si aspettava un'assegnazione in un'istruzione FOR; 
non avendolo trovato e' saltato al successivo :=. 

293 GOTO lnvalid 

11 GOTO o l'etichetta contengono un’istruzione GOTO non valida. 

294 GOTO Considered Harmful 

Come prescritto, se il metacomando $G0T0 e' attivo il compilatore 
ha trovato un'istruzione GOTO. 

296 Label Not Loop Label 

L'etichetta dopo un'istruzione BREAK o CYCLE non e’ un'etichetta 
loop (cioè 1 non indirizza un'istruzione FOR, WH1LE o REPEAT). 

297 Not In Loop 

11 compilatore ha trovato un'istruzione BREAK o CYCLE al di fuori 
degli statement FOR, WH1LE, o REPEAT. 





298 Record Expected Begin Skip 

11 compilatore si aspettava una variabile record nell'istruzione 
W1TH e, non trovandolo, e’ saltato al punto in cui appare il 
messaggio 187. 

300 Label Already In Use Previous Use Ignored 

Il compilatore ha trovato un'etichetta che appariva già' in 
un'altra istruzione, perciò' ha ignorato il precedente impiego 
dell'etichetta. 

301 lnvalid Use Of Procedure Or Function 

Il compilatore ha trovato un parametro di procedura usato come 
funzione, o un parametro di funzione usato come procedura. 

303 Unknown Identifier Skip Statement 

Il compilatore ha trovato un identificatore sconosciuto (o forse 
mal scritto) all'inizio di un’istruzione, ed ha ignorato l'intera 
istruzione. 

304 lnvalid Identifier Skip Statement 

11 compilatore ha trovato all'inizio di un'istruzione un 
identificatore non valido; ha perciò' ignorato l'intera 
istruzione. 

305 Statement Not Expected 

11 compilatore ha trovato un M0DULE oppure un 1MPLEMENTATI0N non 
inizializzato con un corpo delimitato fra le parole riservate 
BEGIN e END. 

306 Function Assignment Not Found 

11 compilatore si aspettava un'assegnazione del valore della 
funzione in qualche punto del corpo della funzione stessa, ma non 
e* riuscito e trovarla. 

307 Unexpected END Skipped 

11 compilatore ha trovato un END senza il relativo BEGIN, CASE o 
RECORD, e quindi lo ignora. 

308 Compiler 

309 Attribute lnvalid 

11 compilatore ha trovato un attributo valido solo per procedure 
e funzioni passate ad una variabile, un attributo valido solo per 
una variabile passata ad un procedura o funzione oppure una 
combinazione non valida di attributi (es. PUBLIC e EXTERN). 
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310 Attribute Expected 

Il compilatore si aspettava un attributo valido dopo la parentesi 
quadra destra, ma non lo ha trovato. : 

311 Skip To ldentifier 

| 

Il compilatore ha saltato un simbolo non valido (cioè' 

inaspettato) per raggiungere l'identificatore successivo. 

312 ldentifier Expected ì 

Il compilatore ha trovato, dove si aspettava una lista di 
identificatori, qualcosa che non e' un identificatore. 

l 

\ 

314 lentifier Expected Skip To ; 

! 

Il compilatore si aspettava la dichiarazione di un nuovo 
identificatore; non l’ha trovata ed e' saltato al successivo 
punto e virgola. 

315 Type Unknown Or Invalid Assumed Integer Begin Skip 

I 

Il tipo di ritorno per un parametro o per una funzione non e' 
corretto; e cioè' non e' un identificatore o non e' dichiarato; 
oppure il valore parametro o il valore della funzione e' un file 
o un super array. Il compilatore ha assunto che il tipo sia 
INTEGER ed e' saltato al punto in cui appare il messaggio 187. 

316 ldentifier Expected 

Il compilatore si aspetta, nella lista parametri, un identicatore 
dopo la parola PROCEDURE o FUNCT10N; ma non riesce a trovarlo. 

318 Compiler 

319 Compiler 

320 Previous Forward Skip Parameter List 

11 compilatore ha trovato una definizione di una procedura o 
funzione FORWARD (o INTERFACE) che ripete, senza che occorra, la 
lista parametri o il tipo di ritorno funzione. 

321 Not EXTERN 

Il compilatore ha trovato una procedura o una funzione con 
l'attributo ORIGIN, ma privo dell'attributo EXTERN. 

322 Invalid Attribute With Function Or Parameter 


li compilatore ha trovato un uso scorretto della procedura 
1NTERRUPT: ha parametri o e' una funzione. 



323 


Invalici Attribute With Procedure Or Function 


Il compilatore ha trovato una procedura o una funzione nidificata 
che ha degli attributi oppure e' dichiarata EXTERN. Nessuna di 
queste due condizioni e 1 consentita. 

324 Compiler 

325 Already Forward 

Si e' tenato di usare FORWARD due volte per la stessa procedura o 
funzione. 

326 Identifier Expected For Procedure Or Function 

Il compilatore si aspetta un identificatore dopo le parole chiave 
PROCEDURE o FUNCTION, ma non riesce a trovarlo. 

327 Invalid Symbol Skipped 

Il compilatore ha trovato e ignorato una direttiva FORWARD o 
EXTERN in un'interfaccia. 

328 EXTERN Invalid With Attribute 

Il compilatore ha trovato una procedura EXTERN dichiarata anche 
PUBLIC. Ciò' non e' consentito. 

329 Ordinai Type Identifier Expected Integer Assumed Begin Skip 

11 compilatore si aspetta un identificatore di tipo ordinale per 
un tipo etichetta di record, ma non riesce a trovarlo. Ha 
perciò' saltato quello dato nel file sorgente e ha assunto il 
tipo INTEGER. 

330 Contains File Cannot lnitialize 

E'stato usato un file in un record con vanianti. Questo e' 
consentito, ma e' considerato poco sicuro e perciò' non e' 
iniziali zzato automaticamente con la solita chiamata NEWFQQ. 

331 Type Identifier Expected Assumed Character 

Il compilatore si aspetta un identificatore di tipo ordinale. Non 
riuscendo a trovarlo, assume che quello che ha trovato sia di 
tipo CHAR. 

333 Not Supertype Assumed String 

Il compilatore ha trovato qualcosa che assomiglia all'indicatore 
di un super array. Tuttavia il tipo di identificatore non e* 
adatto al tipo di super array; cosi' il compilatore assume che 
sia l'identificatore di un super array STRING. 
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334 Type Expected Integer Assumed 

Il compilatore si aspetta una clausola o un identificatore di 
tipo e, non trovandolo, assume che il tipo atteso sia INTEGER. 

335 Out Of Range 255 For Lstring 

lì compilatore ha trovato un indicatore LSTRING il cui limite 
superiore e' piu' grande di 255. 

336 Cannot Use Supertype Use Designator 

Un tipo super array può' essere usato solo come parametro di 
riferimento o puntatore di riferimento. Alle altre variabili non 
può 1 essere dato un tipo super array. Si usa un indicatore di 
super array. 

337 Supertype Designatore Not Found 

Il compilatore si aspetta un indicatore di super array che dia il 
valore del limite superiore del super array, ma non lo trova. 

338 Contains File Cannot Initialize 

Il compilatore ha trovato un super array di un tipo file. Anche 
se consentito, ciò' e' considerato poco sicuro e perciò’ 
1'inizializzazione non avviene automaticamente con la normale 
chiamata NEWFQQ. 

339 Supertype Not Array Skip To ; Assumed Integer 

In una clausola di tipo il compilatore si aspetta la parole 
chiave ARRAY dopo SUPER. Non avendola trovata, assume che il 
tipo sia INTEGER e salta al punto e virgola successivo. 

340 lnvalid Set Range Integer Zero To 255 Assumed 

11 compilatore ha trovato un campo di variabilità' non valido per 
il tipo base di un insieme, ed assume che esso debba essere di 
tipo INTEGER con variabilità' fra 0 e 225. 

341 File Contains File 

Il compilatore ha trovato,ma non lo accetta, un tipo file che 
contiene un tipo file sia indirettamente che direttamente. 

342 PACKED Identifier lnvalid lgnored 

Il compilatore si aspetta una delle parole ARRAY, RECORD SET 
oppure FILE dopo la parola riservata PACKED. Non e' consentito 
nessun tipo di identificatore dopo PACKED. 


uno 
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Unexpected PACKED 

Il compilatore ha trovato la parola chiave PACKED usata 


in 





dei tipi non strutturati. 

345 Skip To ; 

11 compilatore si aspetta un punto e virgola alle fine di una 
dichiarazione (che non si trova a fine riga). Esso assume che il 
punto e virgola successivo sia la fine della dichiarazione. 

346 Insert ; 

11 compilatore si aspetta un punto e virgola alla fine della 
dichiarazione (che coincide con la fine della riga): non 
trovandolo, inserisce un punto e virgola dove si aspettava che ci 
fosse. 

347 Cannot Use Value Section With ROM Memory 

Se e' attivato il metacomando $R0M, non e' possibile avere anche 
una sezione VALUE. 

348 UN1T Procedure Or Function lnvalid EXTERN 

Una dichiarazione EXTERN indispensabile avviene piu' tardi, 
quando dovrebbe essere in un 1MPLEMENTAT10N (ogni procedura o 
funzione di interfaccia non implementata deve essere dichiarata 
EXTERN fin dall'inizio). 

350 Not Array Begin Skip 

In una sezione VALUE la variabile seguita da parentesi quadra 
aperta non e' un array. 

351 Not Record Begin Skip 

La variabile seguita da un punto nella sezione VALUE non e' un 
tipo record. 

352 lnvalid Field 

Nelle sezione VALUE l'identificatore assunto come campo non e’ 
nel record. 

353 Constant Value Expected 

In una sezione VALUE una variabile e' stata inizializzata non 
come costante ma come qualche altra cosa. 

354 Not Assignment Operator Skip To ; 

In una sezione VALUE manca 1'operatore di assegnazione. 

355 Cannot Initialize Identifier Skip To ; 

In una sezione VALUE un simbolo non e' una variabile dichiarata a 
questo livello nella memoria fissa (STAT1C). Oppure e' un 
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attributo 0R1GIN o EXTERN illegale. 

356 Cannot Use Value Section 

Una sezione VALUE e' stata erroneamente inserita nella INTERFACE 
anziché' nell'IMPLEMENTAT10N. 

357 Unknown Forward Pointer Type Assumed lnteger 

L'identificatore per il referente a un tipo di riferimento 
dichiarato precedentemente in questa sezione TYPE (o VAR) non e' 
mai stato dichiarato da solo. 

358 Pointer Type Assumed Forward 

La sezione TYPE include un puntatore o dei tipi indirizzo per i 
quali il tipo referente e' già' stato dichiarato in un dominio 
che lo ingloba. Poiché' l'identificatore per il tipo referente 
e' stato dichiarato anche piu' tardi nella stessa sezione TYPE, 
il compilatore usa la seconda definizione. Nell'esempio seguente 
e' usato il tipo forward REAL. 

PROGRAM OUTSIDE; 

TYPE A = WORD; 

PROCEDURE B; 

TYPE C = AA; 

A = REAL; 


359 Cannot Use Label Section 

11 compilatore ha trovato una sezione LABEL erroneamente inclusa 
in un INTERFACE anziché' in un 1MPLEMENTAT10N. 

360 Forward Pointer To Supertype 

11 referente di un tipo di riferimento dichiarato in questa 
sezione TYPE e' un tipo super array. La dichiarazione del tipo 
super array non avviene se non dopo il riferimento. 

361 Constant Expression Expected Zero Assumed 

Un'espressione in una sezione CONST non e 1 una costante. 

362 Attribute Invalid 

Una sezione VAR mescola erroneamente attributi PUBLIC o 0R1G1N 
con EXTERN. Oppure 0R1G1N appare fra le parentesi quadre 
dell'attributo dopo la parola chiave VAR. 

364 Contains File lnitialize Module 

Il compilatore ha trovato in un modulo una variabile file non 
inizializzata. Per inizializzare i file bisogna chiamare il 
modulo come una procedura senza parametri. 




365 


Origin Variatile Contains File Cannot Initialize 


11 compilatore ha trovato una variabile file non inizializzata in 
un modulo. Poiché' le variabili ORIGIN non sono mai 
inizializzate, l'utente deve inizializzare lui stesso questo 
file. 

366 UN1T Identifier Expected Skip To ; 

11 compilatore si aspetta un identificatore dopo la parola chiave 
USES, ma non lo trova. 

367 Initialize Module To Initialize Unit 

Per inizializzarlo, il modulo deve essere chiamato come una 
procedura (una clausola USES lancia una chiamata di 
inizializzazione). 

368 Identifier List Too Long Extra Assumed Integer 

In una clausola USES con una lista di identificatori, il 
compilatore ha trovato nella lista piu' identificatori di quelli 
costituenti l'interfaccia. Quelli eccedenti sono assunti come 
identificatori di tipo identici a INTEGER. 

369 End Qf UNIT Identifier List Ignored 

In una clausola USES con lista di identificatori il compilatore 
ha trovato nella lista meno identificatori di quelli costituenti 
l'interfaccia. 1 rimanenti costituenti dell'interfaccia non sono 
forniti come parte della clausola USES. 

371 UNIT Identifier Expected 

Dopo la frase "INTERFACCIA; UNIT" manca un identificatore. 

372 Compiler 

Il compilatore si aspetta, ma non trova, la parola chiave UNIT in 
una INTERFACE 

373 Identifier In UNIT List Not Declared 

Uno degli identificatori della lista dell'UNIT di interfaccia non 
e' dichiarata nel corpo dell'interfaccia. 

374 Program Identifier Expected 

Dopo la parola chiave PROGRAM o MODULE manca un identificatore. 
Questo e' un errore pericoloso. 

375 UNIT Identifier Expected 

Dopo la frase "IMPLEMENTATION OF" manca l'identificatore di 
unita'. Questo e' un errore pericoloso. 
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376 Program Not Found 

11 compilatore si aspetta una delle parole riservate PROGRAM 
MODULE o 1MPLEMENTAI0N. Questo e' un errore pericoloso. (Questo 
errore si può' verificare se il file sorgente non e' un'unita' 
compilativa Pascal). 

377 File End Expected Skip To End 

11 compilatore ha trovato un testo sorgente addizionale dopo 

quella che sembra essere la fine e perciò' ha ignorato tutto 
quello che si trova oltre al punto creduto finale. 

378 Program Not Found 

11 compilatore si aspetta, ma non riesce a trovarlo, il corpo 
principale di un'unita' compilativa oppure l'END finale. 


ERRORI BACK END DEL COMPILATORE 

La fonte principale di errori di back end sono errori utente derivanti 
sia dall’ottimazzatore che dal generatore di codice. Infatti vi sono 
pochissimi errori di questo tipo. Sono tutti correlati con limitazioni 
che non possono essere scoperte dal front end. 

Gli errori di back end provocano un arresto immediato, mentre sullo 
schermo appare un codice di errore e un approssimativo numero di riga del 
listing. 

Gli errori di back end sono elencati qui di seguito: 

Codice Messaggio 


1 Attempt To Divide By Zero 
Per esempio A DIV 0 

2 Overflow During Integer Constant Folding 
Per esempio MAXINT + A + MAXINT 

3 Expressions Too Complex/Too Many Internai Labels 

Provare a spezzare in piu' parti l'espressione con assegnazioni 
di valori intermedi 

4 Too Many Procedura And/Or Functions 




Solo Pcode. Provare a suddividere l'unita' compilativa in moduli 
o unita' 

5 Range Error 

Il numero e' troppo grande per adattarsi alla destinazione 


ERRORI INTERNI DEL COMPILATORE 

Tutti gli errori etichettati "Compiler" nella sezione "Errori Front End 
del Compilatore" sono errori interni che non dovrebbero verificarsi mai. 

Anche il back end del compilatore esegue un gran numero di controlli di 
congruenza, questi controlli dovrebbero sempre avere esito positivo e non 
dare mai un errore interno. Qualora si verificassero degli errori, i 
messaggi di errore interno o di back end avrebbero lo stesso formato 

*** Internai Error NNN 

NNN e' il numero dell'errore interno che può' variare da 1 a 999. C'e' 
ben poco che l'utente possa fare quando si verifica un errore interno, se 
non riferirlo e cercare di modificare il programma nei dintorni della 
riga dove l'errore si e' manifestato. 


ERRORI RUNTIME DI FILE SYSTEM 


1 codici di errore di file System variano da 1000 e 1099. 1 codici di 

errore vanno nel campo ERRÒ del file control block. 1 codici di errore 
da 1100 a 1199 identificano errori del file System del Pascal. 

Gli errori di file System hanno tutti lo stesso formato: 

<error type> error in file <filename> 

seguito dal codice errore e, in alcune versioni, da uno stato dell'errore 
che e' una parola di ritorno di errore del sistema operativo. 11 campo 
<error type> e' basato sul campo ERRS del file control block nel modo 
seguente : 

Codice Messaggio 

1 Hard Data 

Errori difficili di dati (parità 1 , CRC, controllo, etc.) 
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2 


3 


4 


5 


6 


7 


8 


9 


IO 


11 


12 


13 


14 


Device Name 

Nome di formato o numero di unita 1 /device/volume non valido 
Operation 

Operazione non valida: GET se EOF; RESET di una stampante, etc. 
File System 

Errore interno del file System, ERRS > 15 etc 
Device Offline 

Unita '/device/volume non piu' disponibili 
Lost File 

Lo stesso file non e' piu' disponibile 
File Name 

Sintassi non valida, nome troppo lungo, oppure non esistono nomi 
temporanei etc. 

Device Full 

Disco pieno, directory piena, tutti i canali già' allocati 
Unknown Device 

Unita 1 /device/volume non trovati 
File Not Found 

Non e' stato trovato neanche il file 
Protected File 

Filename duplicato; file protetto da scrittura 
File In Use 

File già' utilizzato, blocco di concorrenza, file già' aperto 
File Not Open 

File chiuso, 1/0 per chiudere FC8 
Data Format 

Errore di formato dei dati, errore di decodifica, errore di campo 
di variazione 





15 Line Too Long 

Overflow di buffer, riga troppo lunga. 

ERRORI RUNTIME NEL SISTEMA OPERATIVO (1000 - 1099) 

Codice Messaggio 

1000 Urite error when writing end of file 

1001 Unknown device name 

Solo su CP/M-80 e CP/M-86. Si verifica quando non e' mai stato 
assegnato in un RESET o REWRITE nessun filename 

1002 Filename extension with more than 3 characters 

1003 Error during creation of new file (disk or directory full) 

1004 Error during open of existing file (file not found) 

1005 Filename with more than 8 or zero characters 

1006 Device cannot do input or output (solo per CP/M-80 e CP/M-86) 

1007 Total filename lenght over 21 characters 

1008 Urite errors when advancing to next record 

1009 File too big (over 65535 logicai sectors) 

1010 Write errors when seeking to direct record 

1011 Attempt to open a random file to a non-disk device 

1012 Forward space or back space on a non-disk device 
E 1 un errore solo FORTRAN 

1013 Disk or directory full error during forward space or back space. 
Errore solo del FORTRAN 

ERRORI DI FILE SYSTEM NEL PASCAL (1100 - 1199) 

Codice Messaggio 

1100 ASSIGN or READFN of filename to open file. 

Questo errore e 1 rilevato solo per file testo. 

1101 Reference to buffer variable of closed textfile. 

H-30 LINGUAGGIO'PASCAL ‘MANDAIE GENERALE 



*■$■£ ?v 



1102 textfile READ or URITE cali to closed file. 

1103 READ when EOF is true (SEQUENTIAL mode). 

1104 READ to REUR1TE file, or URITE to RESET file (SEQUENTIAL mode). 

1105 EOF cali to closed file. 

1106 GET cali to closed file. 

1107 GET cali when EOF is true (SEQUENTIAL mode). 

1108 GET cali to REUR1TE file (SEQUUENT1AL mode). 

1109 PUT cali to closed file. 

1110 PUT cali to RESET file (SEQUUENT1AL mode). 

1111 Line too long in DIRECT textfile. 

1112 Decode error in textfile READ B00LEAN. 

1113 Value out of range in textfile READ CHAR. 

1114 Decode error in textfile READ 1NTEGER. 

1115 Decode error in textfile READ S1NT (integer subrange). 

1116 Decode error in textfile READ REAL. 

1117 LSTR1NG target not big enough in READSET. 

1118 Decode error in textfile READ U0RD. 

1119 Decode error in textfile READ BYTE (word subrange). 

112.0 SEEK cali to closed file. 

1121 SEEK cali to file not in DIRECT mode. 

1122 Encode error (field width > 255) in textfile WR1TE B00LEAN. 

1123 Encode error (field width > 255) in textfile URITE INTEGER. 

1124 Encode error (field width > 255) in textfile URITE REAL. 

1125 Encode error (field width > 255) in textfile URITE U0RD. 

1126 Decode error (field width > 255) in textfile READ 1NTEGER4. 

1127 Encode error (field width > 255) in textfile URITE 1NTEGER4. 







ALTRI ERRORI RUNTIME 

— i 

I codici di errore non correlati al file System variano da 2000 a 2999. 

In taluni casi i metacomandi pilotano l'esecuzione dei controlli da parte 
del compilatore. Negli altri casi e' il compilatore che controlla sempre. 

La lista qui di seguito indica quale metacomando (se esiste) pilota il 
controllo degli errori. 


ERRORI DI MEMORIA (2000 - 2049) 

Poiché' lo stack e lo heap crescendo avanzano uno verso l'altro, tutti 
gli errori di memoria sono fra loro correlati e interdipendenti; per 
esempio un overflow di stack può 1 generare un errore "Heap Is Invalid" se 
$STACKCK e' disattivato e se lo stack va in overflow. 

Codice Messaggio 

2000 Stack Overflow 

Lo stack (frame) va fuori memoria (out of memory) mentre sta 
chiamando una procedura o una funzione. Questa condizione e' 
controllata se il metacomando $STACKCK e' attivo, e può' essere 
controllato anche in altri casi. 

2001 No Room In Heap 

L'heap e' andato fuori memoria per l'aggiunta di una nuova 
variabile durante la procedura NEW (GETHQQ). Questo errore e' 
sempre rilevato. 

2002 Heap Is Invalid 

Durante una procedura NEW (GETHQQ) l'algoritmo di allocazione 
scopre che la struttura di heap e' sbagliata. Questo errore e' 
rilevato sempre. 

2003 Heap Allocator Interrupted 

Una procedura di interruzione ha interrotto una NEW (GETHQQ) e ha 
fatto lei stessa una cali NEW. L'allocatone di Heap modifica lo 
Heap, che cosi' si trova nella sezione critica. Questo errore non 
e' rilevato in tutte le versioni. 

2004 Allocation Internai Error 

Si e' manifestato un inatteso ritorno con errore mentre GETHQQ 
stava richiedendo, da sistema operativo, dello spazio aggiuntivo 
su heap. 
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2031 NIL Pointer Reference 

DISPOSE or $N1LCK+ hanno trovato un puntatore con un valore NIL 
(ad esempio, 0). 

2032 Uninitialized Pointer 

DISPOSE o $N1LCK+ hanno trovato un puntatore non inizializzato 
(valore 1). Questo avviene solo se il metacomando $1N1TCK e' 
attivo. 

2033 Invalid Pointer Range 

DISPOSE o $N1LCK hanno trovato un puntatore che non punta lo heap 
o e' comunque non valido. (Potrebbe aver puntato un blocco 
rilasciato, rimosso dallo heap e ridato indietro al sistema.) 

2034 Pointer To Disposed Var 

DISPOSE o $N1LCK+ puntano ad un blocco di Heap che e' già' stato 
rilasciato. Non e' valido chiamare due volte DISPOSE per la 
stessa variabile. 

2035 Long DISPOSE Sizes Unequal 

In una forma lunga di DISPOSE la lunghezza effettiva della 
variabile non e' uguale alla lunghezza basata sui valori di 
etichetta passati. 


ERRORI ARITMETICI ORDINALI (2050 - 2099) 

Codice Messaggio 

2050 No CASE Value Matches Selector 

In uno statement CASE senza clausole 0THERWISE, nessuna delle 
istruzioni di salto ha un valore della costante CASE uguale al 
valore della espressione del selettore. Questo errore e' 
controllato solo se il metacomando SRANGECK e' attivo. 

2051 Unsigned Divide By Zero 

Un valore WORD e' stato diviso per zero. Questo errore e' 

controllato solo se il metacomando $MATCHCK e 1 attivo. 

2052 Signed Divide By Zero 

Un valore 1NTEGER e' stato diviso per zero. Questo errore e'■ 

controllato solo se e' attivo il metacomando $MATHCK. 

2053 Unsigned Math Overflow 

Un risultato di WORD e' fuori dai valori estremi (zero e MAXWORD) 
ammessi. Questo errore e' controllato solo se il metacomando 



$MATHCK e' attivo. 


2054 Signed Math Overflow 

Un risultato INTEGER e' fuori dai limiti consentiti {tra -MAXINT 
e +MAX1NT). Questo errore e 1 controllato solo se il metacomando 
$MATHCK e' attivo. 

2055 Unsigned Value Out Of Range 

11 valore sorgente per una assegnazione o per un parametro e' 
fuori del campo di variabilità' per il valore destinazione. La 
destinazione può' essere un subrange di WORD (incluso BYTE), 
oppure CHAR, oppure un tipo enumerato. Questo errore può' 
verificarsi solo nelle funzioni 5UCC e PRED e quando e' assegnata 
la lunghezza della stringa. Tutte queste condizioni sono 
controllate se e' attivo il metacomando $RANGECK. 

L'errore si verifica anche quando l'indice di un array e' fuori 
dai limiti e 1'array ha un tipo indice senza segno. Questa 
condizione e' controllata quando e' attivo il metacomando 
SlNDEXCK. 

2056 Signed Value Out Of Range 

Questo errore e' simile al messaggio 2055, ma si riferisce al 
tipo INTEGER ed ai suoi subrange. 

2057 Uninitialized 16 Bit Integer Used 

E' stata usata, senza prima esser, stata inizializzata, una 
variabile INTEGER o una variabile subrange INTEGER a 16 Bit, 
oppure dette variabili hanno assunto valore di -32768. Questa 
condizione e' controllata solo se il metacomando SlNITCK e' 

attivo. 

2058 Uninitialized 8 Bit INTEGER Used 

E' stata usata una variabile S1NT, oppure una variabile subrange 
INTEGER a 8 bit, senza essere stata prima assegnata; oppure tali 
variabili hanno il valore -128 che non e' valido. Questa 
condizione e' controllata solo se il metacomando $INITCK e' 

attivo. 

2084 Integer Zero To Negative Power 

Si e 1 tentato di elevare zero ad una potenza negativo (errore 
solo del MS-F0RTRAN). 
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ERRORI ARITMETICI DI TIPO REAL (2100 - 2149) 

Codice Messaggio 

2100 REAL Divide by Zero 

Un valore reale e’ diviso per zero. Questo errore e' rilevato 
sempre. 

2101 REAL. Math Overflow 

Un valore reale e' troppo grande per la rappresentazione. Questo 
errore viene rilevato sempre. 

2102 SIN or C0S Argument Range 

11 parametro per la funzione SIN o C0S e' troppo grande per 
portare ad un risultato significativo. Questo errore e‘ rilevato 
solo nei sistemi 8080. 

2103 EXP Argument Range 

11 parametro per una funzione EXP e' troppo grande e perciò' 
porta ad un risultato che non si adatta alla rappresentazione. 
Questo - errore e 1 rilevato solo nei sistemi 8080. 

2104 SQRT of Negative Argument 

11 parametro per una funzione di radice quadrata e' inferiore a 
zero. Questo errore e' sempre rilevato. 

2105 LN of Non-Positive Argument 

11 parametro di una funzione di logaritmo naturale e‘ minore o 
uguale a zero. Questo errore e 1 sempre rilevato. 

2106 TRUNC/R0UND Argument Range 

11 parametro REAL di una funzione TRUNC, TRUNC4, ROUND, R0UND4 e’ 
al di fuori del campo di variabilità' di 1NTEGER. Questo errore 
e' sempre rilevato. 

2131 Tangent Argument Too Small 

11 parametro di una funzione TANRQQ e' tanto piccolo che il 
risultato non e' significativo. Questo errore e' sempre rilevato. 

2132 Arcsin or Arccos of REAL >1.0 

11 parametro per una funzione ASNRQQ o ACSRQQ e' maggiore di uno. 
Questo errore e' sempre rilevato. 

2133 Negative Reai To Reai Power 

11 primo argomento di una funzione PRDRQQ o PRSRQQ e' minore di 





zero. Questo errore e 1 sempre rilevato. 

2134 Reai Zero To Negative Power 

Si e 1 tentato di elevare lo zero ad una potenza negativa. Questo 
errore e 1 sempre rilevato. 

2135 REAL Math Underflow 

.La significatività' di una espressione REAL e' stata ridotta a 
zero. 

2136 REAL Indefinite (Uninitialized Or Previous Error) 

E' stato incontrato il valore REAL detto "infinito". Questo può' 
verificarsi se il metacomando $1N1TCK e' attivo e viene usato un 
valore REAL non iniziali zzato, oppure se un precedente errore, 
come parte di un errore mascherato, pone la variabile nello stato 
non inizializzato. 

2137 Missing Arithmetic Processor 

Il programma e' stato concatenato dall'utente con la libreria 
runtime disposta per l'utilizzo del coprocessore numerico 8087, 
ma nel sistema non e' presente il coprocessore. Bisogna 
concatenare di nuovo il programma con la libreria runtime che 
emula l'aritmetica in virgola mobile (floating point). 

2138 REAL IEEE Denormal Detected 

E’ stato generato un numero reale tanto piccolo che, a causa 
della perdita di significatività', non e' piu' valido. 

2139 REAL Precision Loss 

Un'operazione aritmetica sul coprocessore numerico ha generato la 
perdita di precisione numerica nel risultato di un'operazione. 

2140 REAL Arithmetic Processor lnstruction Illegal Or Not Emulated 

E 1 stato fatto un tentativo di eseguire un'istruzione illegale 
sul comprocessore numerico, oppure l’emulatore in virgola mobile 
non può' emulare un’istruzione legale del coprocessore. 


ERRORI DI TIPO STRUTTURATO (2150 - 2199) 

Codice Messaggio 

2150 Stringa Too Long In COPYSTR 

La stringa di origine per una funzione intrinseca COPYSTR e' 
troppo grande per la stringa di destinazione. Questo errore e 1 
sempre rilevato. 
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2151 Lstring Too Long In Intrinsic Procedure 

La destinazione LSTRING e' troppo piccola in una procedura 
INSERT, DELETE, CONCAT o COPYLIST. Questo errore e 1 sempre 
rilevato. 

2180 Set Element Greater Than 255 

Il valore in un insieme strutturato eccede il massimo di 255. 
Questo errore e' sempre rilevato. 

2181 Set Element Out Of Range 

11 valore di un'assegnazione di insieme o il valore del parametro 
insieme e’ troppo grande per il set di destinazione. Questo 
errore e’ rilevata solo se e 1 attivo il metacomando SRANGECK. 


ERRORI INTEGER4 (2200 - 2249) 

Codice Messaggio 

2200 Long lnteger Divide by Zero 

Un valore 1NTEGER4 e‘ diviso per zero. Questo errore e’ sempre 
rilevato. 

2201 Long lnteger Math Overflow 

Un valore INTEGER4 e’ troppo grande per la rappresentazione. 
Questo errore e 1 sempre rilevato. 

2234 Long lnteger Zero To Negative Power 

Si e' tentato di elevare lo zero ad una potenza negativa. (Errore 
rilevato solo dall 1 M5-F0RTRAN). 


ALTRI ERRORI (2400 - 2999) 

Codice Messaggio 
2400 Illegal Pcode 

Questo e’ un errore interno che può' manifestarsi solo nei 
sistemi p-code. 

2450 Unit Version Number Mismatch 

Durante 1’inizializzazione dell'unita' si e' scoperto che 
l'utente (uno di quelli con clausola USES) e 1'implementazione 
dell'interfaccia sono stati compilati con versioni di interfaccia 
diverse. Questo errore e' sempre rilevato. 
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AVVISO 


La Ing. C. Olivetti & C. S.p.A. si riserva il diritto di apportare 
modifiche al prodotto descritto in questo manuale in qualsiasi momento e 
senza preavviso. 

Questo materiale è stato preparato da Olivetti esclusivamente per l'uso 
da parte dei propri clienti. 

Olivetti garantisce che il presente materiale costituisce, alla data di 
edizione, la più aggiornata documentazione da essa elaborata relativa al 
prodotto cui si riferisce. 

E' inteso che l'uso di detto materiale avviene da parte dell'utente 
sotto la propria responsabilità. 

Nessuna ulteriore garanzia viene pertanto prestata da Olivetti (in 
particolare per eventuali imperfezioni, incompletezze e/o difficoltà 
operative), restando espressamente esclusa ogni sua responsabilità per 
danni diretti o indiretti comunque derivanti dall'uso di tale documenta¬ 
zione. 


Tutta la documentazione è coperta da copyright. 





